home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / misc / FD2Pragma.lha / FD2Pragma / Source / FD2Pragma.c next >
Text File  |  2000-04-01  |  196KB  |  6,838 lines
  1. #define NAME     "FD2Pragma"
  2. #define VERSION  "2"
  3. #define REVISION "104"
  4. #define DATE     "25.03.2000"
  5. //#define DEBUG
  6. //#define DEBUG_OLD
  7.  
  8. /* Programmheader
  9.  
  10.         Name:           FD2Pragma
  11.         Author:         SDI
  12.         Distribution:   PD
  13.         Description:    creates pragmas files, lvo files and stub functions
  14.         Compileropts:   -
  15.         Linkeropts:     -gd -l amiga
  16.  
  17.  1.2    : added pragmas for the Dice compiler. Available via switch "Dice".
  18.         added switches "Aztec", "SAS" and "Maxon": Maxon and Aztec just
  19.         turn on the default (except that Maxon expects pragma files to be
  20.         called "xxx_pragmas.h" instead of "xxx_lib.h"), SAS is equal to
  21.         Dice, except that SAS supports the pragma tagcall.
  22.  2.0    : Added support for tag functions. See the docs for details.
  23.         Author until this version:
  24.         Jochen Wiedmann
  25.         Am Eisteich 9
  26.         72555 Metzingen (Germany)
  27.         Tel. 07123 / 14881
  28.  2.1   19.08.96 : now made by SDI, added correct __MAXON__ support and
  29.         support for StormC++, added auto recognition of tagcall functions
  30.         changed the CLI interface completely
  31.  2.2   21.08.96 : fixed a lot of errors, added debug code
  32.  2.3   22.08.96 : little changes
  33.  2.4   24.08.96 : added proto-file creation
  34.  2.5   25.08.96 : added syscall and fix for functions ending in ...DMA
  35.  2.6   26.08.96 : fixed some errors, added CLIB parameter (used later for
  36.         CSTUBS)
  37.  2.7   01.09.96 : added correct Storm definition, added CLIB scan
  38.  2.8   02.09.96 : added assembler stub functions, added first ASM-stub code
  39.  2.9   04.09.96 : added Comment-Support
  40.  2.10  05.09.96 : changed CSTUB creation a bit
  41.  2.11  07.09.96 : speeded up output, reduced number of strndup calls
  42.  2.12  26.09.96 : pressing CTRL-C in early startup brought a wrong error
  43.         message - fixed
  44.  2.13  30.09.96 : made RegNames field to RegNames string - shorter Exe-file
  45.  2.14  01.10.96 : made SPECIAL 6 default, COMMENT also in LVO files
  46.  2.15  13.10.96 : corrected an error text
  47.  2.16  14.10.96 : added correct comment support and PRIVATE option
  48.  2.17  19.10.96 : now Maxon-compiled in Small data mode
  49.  2.18  22.10.96 : removed EXTERNC in Storm, Maxon and all pragmas, corrected
  50.         the texts, again SAS compiled
  51.  2.19  26.10.96 : added option to create FD files out of pragma files,
  52.         reworked a lot in the source
  53.  2.20  27.10.96 : fixed errors of previous version
  54.  2.21  28.10.96 : fixed error in CLIB scan
  55.  2.22  27.11.96 : SPECIAL numbers for lib and ASM code were wrong, removed
  56.         bug in Tag function stubs
  57.  2.23  06.12.96 : lib and stub creation still was wrong
  58.  2.24  31.12.96 : formed stub libs matching C++ file names, corrected CLIB
  59.         scan errors
  60.  2.25  04.01.97 : added HEADER option (I was asked for)
  61.  2.26  05.01.97 : added HEADER scan (in old file) and auto inserting
  62.  2.27  10.01.97 : stub functions missed register saving, outfuncs skip now,
  63.         when error occured (makes lots of error checking obsolete)
  64.  2.28  11.01.97 : forgot to add offset made by register saving
  65.  2.29  18.01.97 : now libtags and amitags defines only, when at least 1
  66.         tagfunc
  67.  2.30  13.02.97 : added local library base functions, rearranged SPECIAL
  68.         options, fixed some bugs
  69.  2.31  15.02.97 : corrected bugs inserted in previous version
  70.  2.32  16.02.97 : and again bug fixes, still didn't work
  71.  2.33  18.02.97 : corrected texts, added SPECIAL 28
  72.  2.34  25.03.97 : corrected Pragma --> FD file conversion, added ##shadow
  73.  2.35  26.03.97 : added STORMFD option, COMMENT, PRIVATE work again
  74.  2.36  29.03.97 : corrected *tagcall scan a bit
  75.  2.37  20.06.97 : added PASCAL stub lib production (SPECIAL 14, 15)
  76.  2.38  01.07.97 : fixed ##end handling
  77.  2.39  20.07.97 : added better proto file (__GNUC__ inline and pragma call),
  78.         removed C++ comments
  79.  2.40  24.11.97 : added new basenames to the list (devices and resources),
  80.         added tag-exception name checking (dos, utility libraries)
  81.  2.41  27.11.97 : fixed little bug with private functions, CSTUBS now
  82.         special option and no longer commandline arg, SPECIAL 10-15 got
  83.         numbers 11-16 (Sorry)
  84.  2.42  28.11.97 : Added two new warnings for CLIB
  85.  2.43  12.12.97 : faster FD file scan, one new warning
  86.  2.44  19.12.97 : fixed MODE settings for SPECIAL 15,16
  87.  2.45  30.01.98 : added function recognition, included inline creation,
  88.         inline stuff is based on fd2inline 1.11 (incomplete)
  89.  2.46  31.01.98 : continued inline stuff, fixed clib functions
  90.  2.47  05.02.98 : completed inline stuff, added alias names for dos functions
  91.  2.48  06.02.98 : changed Func interface - flags instead of tagmode
  92.  2.49  10.02.98 : fixed inline generation a bit, added SORTED argument,
  93.         RegNames got strings again
  94.  2.50  11.02.98 : bug-fixes, still did not work completely, hopefully got
  95.         all now
  96.  2.51  12.02.98 : and bug-fixes again :-(
  97.  2.52  15.02.98 : changed sorting order of arguments
  98.  2.53  20.02.98 : some code style changes
  99.  2.54  25.02.98 : added SMALLDATA model, removed 5 global variables (better
  100.         style), stub libs use MOVEM when possible, own MemRemember function
  101.  2.55  26.02.98 : bug fixes
  102.  2.56  15.03.98 : added FPU support
  103.  2.57  17.03.98 : added NOFPU keyword
  104.  2.58  19.03.98 : little fixes
  105.  2.59  20.03.98 : added enum and external type definitions defines
  106.  2.60  22.03.98 : added external types file scan
  107.  2.61  23.03.98 : fixed SAS flibcall, added FPU stubs
  108.  2.62  28.03.98 : bug fix with NOFPU and new option FPUONLY, total new clib
  109.         handling
  110.  2.63  29.03.98 : really lots of bug fixes, There are so much problems.
  111.         A better definition format would have been wonderful.
  112.  2.64  05.04.98 : bug fixes
  113.  2.65  07.04.98 : fixed Enforcer hit
  114.  2.66  08.04.98 : bug fix with type detection
  115.  2.67  20.04.98 : added GNU-only stuff
  116.  2.68  28.04.98 : SPECIAL 8 defaults to SAS-C names now
  117.  2.69  25.05.98 : added PowerUP stuff support
  118.  2.70  28.05.98 : added SAS PowerUP stuff, fixed error with function
  119.         detection in CLIB scan
  120.  2.71  30.05.98 : added PowerUP Inlines
  121.  2.72  12.06.98 : sorting turns of COMMENT now
  122.  2.73  05.07.98 : added first FPC stuff, added HEADER to PowerUP stuff,
  123.         added PASCAL header scan
  124.  2.74  06.07.98 : finished FPC stuff
  125.  2.75  07.07.98 : bug fixes for FPC stuff
  126.  2.76  09.07.98 : style changes for FPC stuff, bug fixes
  127.  2.77  11.07.98 : hopefully last FPC bug removed
  128.  2.78  23.07.98 : style changes and bug fixes for FPC stuff, more comments
  129.  2.79  10.08.98 : bug fix, when TO was used with a directory, clib got
  130.         wrong path if it was a relative path description
  131.  2.80  16.08.98 : now prints better error when filopen failed
  132.  2.81  26.10.98 : added BMAP files for BASIC, CODE needs to use large mode
  133.         now :-(
  134.  2.82  28.10.98 : optimizations and bug fixes
  135.  2.83  31.12.98 : fixed powerup stuff a bit
  136.  2.84  05.01.99 : fixed bug in Lib creation, when Dx/Ax and FPx were mixed
  137.  2.85  06.01.99 : added recognition of names ending in MESA, added notagcall
  138.         comment support, void functions no longer can be tagcall
  139.  2.86  10.01.99 : added BGUI special funcs, fixed bug in SPECIAL 42 code
  140.  2.87  12.01.99 : added asm-text (SECTION), moved 12-17 to 13-18
  141.  2.88  17.01.99 : better type detection, added some more basenames, some
  142.         little bug fixes, new makefile reduces file size a lot
  143.  2.89  17.07.99 : added union support
  144.  2.90  12.11.99 : added new motorola syntax, opt040 and vbcc inlines
  145.  2.91  13.11.99 : Now supports changes in OS3.5 includes, why the hell must
  146.         such changes be? I thought new includes will bring cleanup and not
  147.         cleandown. And the reported bugs are still unfixed, but there are
  148.         new ones!, bug-fixes
  149.  2.92  14.11.99 : added PPC-WOS library text and code, FD-creation moved from
  150.     80 to 200 (now finally! - there should be enough free number space),
  151.     added VBCC-PUP text generation
  152.  2.93  15.11.99 : added CheckError function, moved DisplayInfoHandle to
  153.     types definition file
  154.  2.94  16.11.99 : added first VBCC-PowerUP-Lib production stuff, only ELF
  155.     tables missing
  156.  2.95  17.11.99 : finished PowerUP stub stuff, startet PPC-ABI stuff
  157.  2.96  18.11.99 : little bug fixes
  158.  2.97  19.11.99 : added SECTION keyword, moved 11-18 to 12-17, ahh 3 releases
  159.     more and we get an anniversary, my first program using third revision
  160.     digit :-)
  161.  2.98  20.11.99 : added VBCC-WOS-Code for PPC libs
  162.  2.99  25.11.99 : bug fixes
  163.  2.100 17.02.00 : fixed bug for VBCC inlines
  164.  2.101 29.02.00 : fixed name for VBCC inlines
  165.  2.102 13.03.00 : added new style GCC inlines
  166.  2.103 21.03.00 : bug fixed, SPECIAL 35 has VBCC stuff now.
  167.  2.104 25.03.00 : fixed path lock problem
  168. */
  169.  
  170. /* A short note, how FD2Pragma works.
  171. Working mode for SPECIAL 200 is a bit different!
  172. The main function parses arguments. Switches are converted into FLAG_XXX values
  173. and stored in global "Flags" variable. SPECIAL numbers are parsed and are used
  174. to call a CreateXXX function, with its interface depending on the need of
  175. arguments (Some have 2, some none, ...). Before SPECIAL arguments are parsed,
  176. FD2Pragma loads FD file and scans it using ScanFDFile(). If SORTED is specified,
  177. the list gets sorted directly afterwards. IF CLIB argument is given, the clib
  178. file is scanned before FD file and a clib list is created. Now SPECIAL is parsed
  179. and mode is set to any of the MODUS_XXX values. Also the destination file name
  180. is created if not given. The destination file is opened now. The mode variable
  181. is used to determine the correct CreateXXX function, which is called afterwards.
  182. This function produces file headers and stuff like that and calls CallFunc to
  183. process each FD entry. CallFunc gets 3 arguments. First the workmode (TAG,
  184. NORMAL, BOTH). Second the comment method (for C it is "/%s *.\n" [. means /],
  185. for ASM it is "\n%s", no comment is reached with 0 argument). The last is most
  186. important. It is the function pointer to a function creating the entries.
  187. These functions have always the same interface and are called through CallFunc
  188. only! They create an entry for the specified function (e.g. FD entry).
  189. Parsing special functions, adding comments, checking for tag-functions, ...
  190. is done by CallFunc. It is no problem to call CallFunc multiple with different
  191. function pointers (as is done for SPECIAL 6 pragmas).
  192.  
  193. The functions can use DoOutput to output texts in printf style or DoOutputDirect
  194. to output all data in fwrite style. Buffering is done automatically.
  195.  
  196. FD2Pragma has its own memory managment. All memory must be allocated using
  197. AllocListMem and is freed automatically. This is especially useful for DupString
  198. function, which is used in FD and CLIB scanner.
  199.  
  200. Normally this source-file is to big and should be splitted in different files
  201. compiled alone and linked together. :-)
  202. */
  203.  
  204. #include <proto/exec.h>
  205. #include <proto/dos.h>
  206.  
  207. #include <exec/memory.h>
  208. #include <exec/execbase.h>
  209. #include <dos/doshunks.h>
  210.  
  211. #define SDI_TO_ANSI
  212. #include "SDI_ASM_STD_protos.h"
  213. #include "SDI_defines.h"
  214. #include "SDI_compiler.h"
  215.  
  216. #ifdef __MAXON__        /* needed for -gd option */
  217.   #include <linkerfunc.h>
  218. #endif
  219.  
  220. #define TEXT_SAS        "__SASC"        /* verified     */
  221. #define TEXT_SAS_60     "__SASC_60"     /* verified     */
  222. #define TEXT_MAXON      "__MAXON__"     /* verified     */
  223. #define TEXT_STORM      "__STORM__"     /* verified     */
  224. #define TEXT_DICE       "_DCC"          /* in 2.0 code  */
  225. #define TEXT_AZTEC      "AZTEC_C"       /* verified     */
  226. #define TEXT_GNUC       "__GNUC__"      /* verified     */
  227. #define TEXT_VBCC    "__VBCC__"    /* verified    */
  228.  
  229. #define TEMPSIZE    1024
  230.  
  231. #define FLAG_EXTERNC    (1<< 0) /* add externc statements */
  232. #define FLAG_SYSCALL    (1<< 1) /* create SAS-C syscall pragmas */
  233. #define FLAG_DOCOMMENT  (1<< 2) /* do comment processing */
  234. #define FLAG_PRIVATE    (1<< 3) /* also use private functions */
  235. #define FLAG_LOCALREG   (1<< 4) /* local file uses register call */
  236. #define FLAG_STORMFD    (1<< 5) /* FD file uses strange Storm format */
  237. #define FLAG_PASCAL     (1<< 6) /* library creation with PASCAL style */
  238. #define FLAG_SMALLDATA  (1<< 7) /* libraries use small data modell */
  239. #define FLAG_DONE       (1<< 8) /* destination file is not empty */
  240. #define FLAG_INLINENEW  (1<< 9) /* produce new style inlines */
  241. #define FLAG_INLINESTUB (1<<10) /* produce stubs style inlines */
  242. #define FLAG_NOFPU      (1<<11) /* do not allow FPU registers */
  243. #define FLAG_DIDERROR   (1<<12) /* one error already printed, don't print 2nd */
  244. #define FLAG_FPUONLY    (1<<13) /* only use FPU registers */
  245. #define FLAG_GNUPRAG    (1<<14) /* insert inline call into pragma file */
  246. #define FLAG_POWERUP    (1<<15) /* create Phase5 PowerUP files */
  247. #define FLAG_ASMSECTION (1<<16) /* create SECTIONS in Asm code */
  248. #define FLAG_NEWSYNTAX  (1<<17) /* new motorola syntax */
  249. #define FLAG_NOMOVEM    (1<<18) /* 68040 optimization, don't use MOVEM */
  250. #define FLAG_WOSLIBBASE (1<<19) /* first arg is libbase for VBCC WOS */
  251. #define FLAG_NOPPC    (1<<20)    /* do not allow PPC functions */
  252. #define FLAG_PPCONLY    (1<<21) /* only take PPC functions */
  253. #define FLAG_NOSYMBOL    (1<<23) /* do not create symbol section for libs */
  254. #define FLAG_INLINEMAC  (1<<24) /* use inline macro instead of inline function */
  255. #define FLAG_CHANGELOCK (1<<25) /* SPECIAL: We used CurrentDir() in main() */
  256.  
  257. #define FUNCFLAG_NORMAL (1<<29) /* normal function */
  258. #define FUNCFLAG_TAG    (1<<30) /* a tagcall function */
  259. #define FUNCFLAG_ALIAS  (1<<31) /* an alias name for previous function */
  260.  
  261. /* Different modes the main program uses, one for each different file
  262.    type (except for those done with one function and flag settings). */
  263. #define MODUS_STUBTEXT           1
  264. #define MODUS_STUBCODE           2
  265. #define MODUS_LOCALDATA          3
  266. #define MODUS_PRAGMA             4
  267. #define MODUS_CSTUB              5
  268. #define MODUS_SASPOWER           6
  269. #define MODUS_PROTOPOWER         7
  270. #define MODUS_BMAP               8
  271. #define MODUS_PASCAL             9
  272. #define MODUS_VBCCINLINE        10
  273. #define MODUS_VBCCPUPLIB    11
  274. #define MODUS_LVOLIB        12
  275. #define MODUS_LVO               50    /* and 51 and 52 and 53   */
  276. #define MODUS_PROTO             60    /* and 61 to 67           */
  277. #define MODUS_INLINE            70    /* and 71 to 74           */
  278. #define MODUS_VBCC              80    /* and 81 to 84           */
  279. #define MODUS_ERROR             100
  280.  
  281. #define ABI_M68K        1
  282. #define ABI_PPC            2
  283. #define ABI_PPC2        3
  284. #define ABI_PPC0        4
  285.  
  286. /* call types for CallFunc */
  287. #define TAGMODE_NORMAL  0    /* produce normal functions only */
  288. #define TAGMODE_TAGS    1    /* produce only tag functions */
  289. #define TAGMODE_BOTH    2    /* produce both types */
  290.  
  291. /* types specifying name method for pragma creation */
  292. #define PRAGMODE_PRAGLIB        1
  293. #define PRAGMODE_PRAGSLIB       2
  294. #define PRAGMODE_PRAGSPRAGS     3
  295. #define PRAGMODE_NONE           4
  296.  
  297. #define BIAS_OFFSET     6  /* value to switch from one to next function */
  298.  
  299. #define EXTTYPESFILE    "FD2Pragma.types"
  300. #define EXTTYPESFILE2   "PROGDIR:FD2Pragma.types"
  301. #define FDFILEEXTENSION "_lib.fd"
  302.  
  303. #define PARAM   "FROM=INFILE/A,SPECIAL/N,MODE/N,"                       \
  304.                 "TO/K,CLIB/K,HEADER/K,"                                 \
  305.                 "AMICALL/K,LIBCALL/K,AMITAGS/K,LIBTAGS/K,"              \
  306.                 "COMMENT/S,EXTERNC/S,FPUONLY/S,NEWSYNTAX/S,NOFPU/S,"    \
  307.                 "NOPPC/S,NOSYMBOL/S,OPT040/S,PPCONLY/S,PRIVATE/S,"    \
  308.                 "SECTION/S,SMALLDATA/S,SORTED/S,STORMFD/S,USESYSCALL/S"
  309.  
  310. const STRPTR RegNames[] = {
  311. "d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7",
  312. "a0", "a1", "a2", "a3", "a4", "a5", "a6", "a7",
  313. "fp0", "fp1", "fp2", "fp3", "fp4", "fp5", "fp6", "fp7",
  314. };
  315.  
  316. const STRPTR RegNamesUpper[] = {
  317. "D0", "D1", "D2", "D3", "D4", "D5", "D6", "D7",
  318. "A0", "A1", "A2", "A3", "A4", "A5", "A6", "A7",
  319. "FP0", "FP1", "FP2", "FP3", "FP4", "FP5", "FP6", "FP7",
  320. };
  321.  
  322. enum Register_ID {
  323. REG_D0, REG_D1, REG_D2, REG_D3, REG_D4, REG_D5, REG_D6, REG_D7,
  324. REG_A0, REG_A1, REG_A2, REG_A3, REG_A4, REG_A5, REG_A6, REG_A7,
  325. REG_FP0, REG_FP1, REG_FP2, REG_FP3, REG_FP4, REG_FP5, REG_FP6, REG_FP7,
  326. };
  327. #define MAXREGPPC    26
  328. #define MAXREG        24 /* maximum registers of 68K */
  329. #define MAXREGNF        16 /* maximum register number without float regs */
  330.  
  331. struct Args
  332. {
  333.   STRPTR INFILE;
  334.   ULONG* SPECIAL;
  335.   ULONG* MODE;
  336.   STRPTR TO;
  337.   STRPTR CLIB;
  338.   STRPTR HEADER;
  339.   STRPTR AMICALL;
  340.   STRPTR LIBCALL;
  341.   STRPTR AMITAGS;
  342.   STRPTR LIBTAGS;
  343.   ULONG  COMMENT;
  344.   ULONG  EXTERNC;
  345.   ULONG  FPUONLY;
  346.   ULONG  NEWSYNTAX;
  347.   ULONG  NOFPU;
  348.   ULONG  NOPPC;
  349.   ULONG  NOSYMBOL;
  350.   ULONG  OPT040;
  351.   ULONG  PPCONLY;
  352.   ULONG  PRIVATE;
  353.   ULONG  SECTION;
  354.   ULONG  SMALLDATA;
  355.   ULONG  SORTED;
  356.   ULONG  STORMFD;
  357.   ULONG  USESYSCALL;
  358. };
  359.  
  360. struct ShortList {
  361.   struct ShortList    *Next;
  362. };
  363.  
  364. struct ShortListRoot {
  365.   struct ShortList    *First;
  366.   struct ShortList    *Last;
  367.   ULONG                Size;
  368. };
  369.  
  370. #define AMIPRAGFLAG_PUBLIC       (1<< 0) /* is a public function */
  371. #define AMIPRAGFLAG_A6USE        (1<< 1) /* A6 is used for this function */
  372. #define AMIPRAGFLAG_A5USE        (1<< 2) /* A5 is used */
  373. #define AMIPRAGFLAG_A4USE        (1<< 3) /* A4 is used */
  374. #define AMIPRAGFLAG_D7USE        (1<< 4) /* D7 is used */
  375. #define AMIPRAGFLAG_ARGCOUNT     (1<< 5) /* when double args, ... */
  376. #define AMIPRAGFLAG_DIDARGWARN   (1<< 6) /* We printed a argcount warning */
  377. #define AMIPRAGFLAG_FLOATARG     (1<< 7) /* It has a float argument */
  378. #define AMIPRAGFLAG_DIDFLOATWARN (1<< 8) /* We printed a float warning */
  379. #define AMIPRAGFLAG_NOCLIB       (1<< 9) /* No clib definition found */
  380. #define AMIPRAGFLAG_CLIBARGCNT   (1<<10) /* CLIB argument count error */
  381. #define AMIPRAGFLAG_PPC         (1<<11) /* This is an PPC function */
  382. #define AMIPRAGFLAG_DIDPPCWARN     (1<<12) /* we already printed ppc warning */
  383. #define AMIPRAGFLAG_PPC0     (1<<13) /* type PPC0 */
  384. #define AMIPRAGFLAG_PPC2     (1<<14) /* type PPC2 */
  385.  
  386. struct AmiPragma {
  387.   struct ShortList              List;
  388.   UWORD                         Bias;
  389.   UWORD                         Line;
  390.   ULONG                         Flags;
  391.   STRPTR                        FuncName;
  392.   STRPTR                        TagName;
  393.   struct Pragma_AliasName *     AliasName;  /* possible second name */
  394.   UWORD                         NumArgs;  /* register numbers */
  395.   UWORD                         CallArgs; /* argument number in fd file */
  396.   struct AmiArgs
  397.   {
  398.     STRPTR                      ArgName;
  399.     UWORD                       ArgReg;
  400.   } Args[MAXREGPPC];
  401. };
  402.  
  403. struct Comment {
  404.   struct ShortList      List;
  405.   STRPTR                Data;
  406.   UWORD                 Bias;
  407. };
  408.  
  409. struct PragList {
  410.   struct ShortList      List;
  411.   struct ShortListRoot  Data;        /* contains list of PragData */
  412.   STRPTR                Basename;
  413. };
  414.  
  415. struct PragData {
  416.   struct ShortList      List;
  417.   struct ShortListRoot  Name;
  418.   ULONG                 NumNames;
  419.   ULONG                 Bias;
  420.   ULONG                 NumArgs;
  421.   UBYTE                 ArgReg[MAXREG];
  422. };
  423.  
  424. struct FDData {
  425.   STRPTR Name;
  426.   STRPTR Basename;
  427.   ULONG  Bias;
  428.   ULONG  Mode;        /* 0 = Normal, != 0 is TagName */
  429.   ULONG  NumArgs;
  430.   UBYTE  ArgReg[MAXREG];
  431. };
  432.  
  433. /* These CPP types match the strings used for CPP name creation. The
  434. defines are used both for name creation and type specification. */
  435. #define CPP_TYPE_VOID           'v'     /* void,   VOID    */
  436. #define CPP_TYPE_BYTE           'c'     /* char,   BYTE    */
  437. #define CPP_TYPE_WORD           's'     /* short,  WORD    */
  438. #define CPP_TYPE_LONG           'j'     /* long,   LONG    */
  439. #define CPP_TYPE_FLOAT          'f'     /* float,  FLOAT   */
  440. #define CPP_TYPE_DOUBLE         'd'     /* double, DOUBLE  */
  441. #define CPP_TYPE_STRUCTURE      0
  442. #define CPP_TYPE_VARARGS        'e'
  443.  
  444. /* These types are for string creation only. */
  445. #define CPP_TYPE_ENUM           'E'
  446. #define CPP_TYPE_CONST          'C'
  447. #define CPP_TYPE_FUNCTION       'F'
  448. #define CPP_TYPE_POINTER        'P'
  449. #define CPP_TYPE_UNSIGNED       'U'
  450. #define CPP_TYPE_FUNCEND        'p'
  451. #define CPP_TYPE_REGISTER       'r'
  452.  
  453. /* Some flags to be used in CPP_NameType->Flags. */
  454. #define CPP_FLAG_UNSIGNED       (1<<0) /* is an unsigned variable */
  455. #define CPP_FLAG_CONST          (1<<1) /* type is const */
  456. #define CPP_FLAG_STRPTR         (1<<2) /* this variable contains a STRPTR */
  457. #define CPP_FLAG_POINTER        (1<<3) /* the variable is a pointer */
  458. #define CPP_FLAG_ENUM           (1<<4) /* it is a enumeration */
  459. #define CPP_FLAG_STRUCT         (1<<5) /* it is a structure */
  460. #define CPP_FLAG_UNION          (1<<6) /* it is a union */
  461. #define CPP_FLAG_FUNCTION       (1<<7) /* it is a function */
  462. #define CPP_FLAG_BOOLEAN        (1<<8) /* in truth this element is bool */
  463. /* STRPTR is defined different under C and CPP -> I have to create two
  464. names, one time unsigned char *, one time signed char *, when somewhere
  465. a STRPTR occurs */
  466.  
  467. struct CPP_NameType { /* structure to describe a argument type */
  468.   STRPTR StructureName;   /* if a structure or enum only                */
  469.   STRPTR FuncArgs;        /* arguments of function - unterminated       */
  470.   STRPTR TypeStart;       /* start of this type                         */
  471.   UWORD  StructureLength; /* length of the structure name               */
  472.   UWORD  ArgsLength;      /* length of FuncArgs                         */
  473.   UWORD  TypeLength;      /* length of this type                        */
  474.   UWORD  FullLength;      /* length of complete type                    */
  475.   UWORD  PointerDepth;    /* number of * in type                        */
  476.   UWORD  Flags;           /* see above flags                            */
  477.   UBYTE  Type;            /* see above defines                          */
  478. };
  479.  
  480. struct ClibData { /* structure to describe data in CLIB file */
  481.   struct ClibData *     Next;         /* The next entry in this list */
  482.   STRPTR                FuncName;     /* name of the function */
  483.   ULONG                 NumArgs;      /* number of arguments */
  484.   struct CPP_NameType   ReturnType;   /* data for return type */
  485.   struct CPP_NameType   Args[MAXREGPPC+1]; /* data for argument types */
  486. };
  487.  
  488. struct CPP_ExternNames { /* structure for EXTTYPESFILE data */
  489.   struct CPP_ExternNames * Next;        /* The next entry in this list */
  490.   STRPTR                   Type;        /* The unknown type */
  491.   struct CPP_NameType      NameType;    /* The replacement */
  492. };
  493.  
  494. struct CPP_TypeField { /* structure for internal defined types */
  495.   STRPTR Text;          /* name of the type */ 
  496.   UWORD  Length;        /* length of the name string */
  497.   UWORD  Flags;         /* CPP_FLAG flags */
  498.   UBYTE  Type;          /* CPP_TYPE value */
  499. };
  500.  
  501. struct Proto_LibType { /* structure to define structure type of base vars */
  502.   STRPTR BaseName;      /* name of the library base */
  503.   STRPTR StructureName; /* name of the structure to be used */
  504. };
  505.  
  506. struct Pragma_ExecpName { /* structure to specify special tagnames */
  507.   STRPTR FunctionName;  /* function name */
  508.   STRPTR TagName;       /* tag name to be used for this function */
  509. }; /* TagName 0 is valid as well to disable tagfunctions */
  510.  
  511. struct Pragma_AliasName {
  512.   STRPTR FunctionName;
  513.   STRPTR AliasName;
  514.   ULONG  Type;
  515. };
  516.  
  517. #define NTP_NORMAL      0    /* no tags/args    */
  518. #define NTP_TAGS        1    /* TagFunction     */
  519. #define NTP_ARGS        2    /* ArgFunction     */
  520. #define NTP_UNKNOWN     3    /* CommentFunction */
  521.  
  522. struct NameList {
  523.   struct ShortList      List;
  524.   ULONG                 Type;    /* set by OptimizeFDData */
  525.   STRPTR                NormName;
  526.   STRPTR                PragName;
  527. };
  528.  
  529. struct InOut {
  530.   ULONG  file;
  531.   STRPTR pos;
  532.   STRPTR buf;
  533.   ULONG  size;
  534. };
  535.  
  536. /* EHF definitions! */
  537. #define HUNK_PPC_CODE   0x4E9
  538. #define HUNK_RELRELOC26 0x4EC
  539. #define EXT_RELREF26    229
  540.  
  541. /* ------------------------------------------------------------------ */
  542. /* A short set of ELF definitions, see pasm sources in vbcc release for an
  543. more complete set of stuff or get elf documentation. These are needed for
  544. VBCCPUPCode function. */
  545. #define ELFCLASS32    1
  546. #define ELFDATA2MSB    2
  547. #define EV_CURRENT    1    /* version information */
  548. #define ET_REL        1    /* type information */
  549. #define EM_POWERPC    20
  550.  
  551. #define SHT_NULL    0    /* inactive */
  552. #define SHT_PROGBITS    1    /* program information */
  553. #define SHT_SYMTAB    2    /* symbol table */
  554. #define SHT_STRTAB    3    /* string table */
  555. #define SHT_RELA    4    /* relocation */
  556.  
  557. #define SHF_ALLOC    0x2    /* needs memory when started */
  558. #define SHF_EXECINSTR    0x4    /* executable instructions */
  559.  
  560. #define EI_NIDENT    16
  561. #define EI_MAG0        0
  562. #define EI_MAG1        1
  563. #define EI_MAG2        2
  564. #define EI_MAG3        3
  565. #define EI_CLASS    4
  566. #define EI_DATA        5
  567. #define EI_VERSION    6
  568.  
  569. #define STB_LOCAL    0
  570. #define STB_GLOBAL    1
  571. #define STT_NOTYPE    0
  572. #define STT_SECTION    3
  573. #define ELF32_ST_INFO(b,t)    (((b)<<4)+((t)&0xf))
  574. #define ELF32_R_INFO(s,t)    (((s)<<8)+(UBYTE)(t))
  575.  
  576. #define R_PPC_ADDR16_LO     4
  577. #define R_PPC_ADDR16_HA  6
  578. #define R_PPC_REL24    10
  579. #define R_PPC_SDAREL16    32
  580.  
  581. struct Elf32_Ehdr {
  582.   UBYTE e_ident[EI_NIDENT];
  583.   UWORD e_type;
  584.   UWORD e_machine;
  585.   ULONG e_version;
  586.   ULONG e_entry;
  587.   ULONG e_phoff;
  588.   ULONG e_shoff;
  589.   ULONG e_flags;
  590.   UWORD e_ehsize;
  591.   UWORD e_phentsize;
  592.   UWORD e_phnum;
  593.   UWORD e_shentsize;
  594.   UWORD e_shnum;
  595.   UWORD e_shstrndx;
  596. };
  597.  
  598. struct Elf32_Shdr {
  599.   ULONG sh_name;
  600.   ULONG sh_type;
  601.   ULONG sh_flags;
  602.   APTR  sh_addr;
  603.   ULONG sh_offset;
  604.   ULONG sh_size;
  605.   ULONG sh_link;
  606.   ULONG sh_info;
  607.   ULONG sh_addralign;
  608.   ULONG sh_entsize;
  609. };
  610.  
  611. struct Elf32_Rela {
  612.   ULONG r_offset;
  613.   ULONG r_info;
  614.   ULONG r_addend;
  615. };
  616.  
  617. struct Elf32_Sym {
  618.   ULONG st_name;
  619.   ULONG st_value;
  620.   ULONG st_size;
  621.   UBYTE st_info;
  622.   UBYTE st_other;
  623.   UWORD st_shndx;
  624. };
  625.  
  626. struct ArHeader {
  627.   UBYTE ar_name[16];             /* name */
  628.   UBYTE ar_time[12];             /* modification time */
  629.   UBYTE ar_uid[6];               /* user id */
  630.   UBYTE ar_gid[6];               /* group id */
  631.   UBYTE ar_mode[8];              /* octal file permissions */
  632.   UBYTE ar_size[10];             /* size in bytes */
  633.   UBYTE ar_fmag[2];              /* consistency check */
  634. };
  635.  
  636. /* ------------------------------------------------------------------ */
  637.  
  638. struct RememberMem { /* structure for selfmade global memory list */
  639.   struct RememberMem *    rm_Next;    /* pointer to next entry */
  640.   ULONG                   rm_Size;    /* entry size */
  641. };
  642.  
  643. struct RDArgs *         rda             = 0;
  644. struct InOut            in              = {0,0,0,0},
  645.                         out             = {0,0,0,5120};
  646. struct ClibData *       clibdata        = 0;
  647. struct FileInfoBlock *  fib             = 0;
  648. struct ShortListRoot    AmiPragma       = {0,0,sizeof(struct AmiPragma)},
  649.                         Comment         = {0,0,sizeof(struct Comment)};
  650. struct RememberMem *    remember        = 0;
  651. APTR            mempool        = 0;
  652. struct CPP_ExternNames *extnames        = 0;
  653. ULONG                   oldfh           = 0;
  654. ULONG                   lock            = 0;
  655. STRPTR                  BaseName        = 0; /* the correct basename */
  656. STRPTR                  ShortBaseName   = 0; /* the filename part of basename without Base */
  657. STRPTR                  ShortBaseNameUpper = 0; /* like ShortBaseName, but upper case */
  658. ULONG                   DosVersion      = 37; /* force OS2.0 */
  659. STRPTR                  HEADER          = 0;
  660. APTR            tempbuf        = 0;
  661. ULONG                   headersize      = 0;
  662. ULONG                   Flags           = 0;
  663. ULONG                   Output_Error    = 1; /* Output error occured when 0 */
  664. ULONG                   tagfuncs        = 0; /* are there some tagfuncs in FD */
  665.  
  666. /* Prototypes for the functions */
  667. STRPTR DupString(STRPTR, ULONG);
  668. STRPTR AllocListMem(ULONG);
  669. STRPTR SkipBlanks(STRPTR);
  670. STRPTR SkipBlanksRet(STRPTR);
  671. STRPTR SkipName(STRPTR);
  672. STRPTR GetBaseType(void);
  673. ULONG  CloseDest(STRPTR);
  674. ULONG  MakeTagFunction(struct AmiPragma *);
  675. void   MakeLines(STRPTR, ULONG);
  676. ULONG  SpecialFuncs(void);
  677. void   SortFDList(void);
  678. ULONG  ScanFDFile(void);
  679. LONG   ScanTypes(STRPTR, ULONG);
  680. void   FindHeader(void);
  681. ULONG  GetRegisterData(struct AmiPragma *);
  682. UWORD  GetFRegisterData(struct AmiPragma *);
  683. ULONG  OutputXDEF(STRPTR, ...);
  684. ULONG  OutputSYMBOL(STRPTR, ...);
  685. UWORD *AsmStackCopy(UWORD *, struct AmiPragma *, ULONG, ULONG);
  686. /* ------------------------------------------------------------------ */
  687. void   DoError(UBYTE, ULONG, ...);
  688. ULONG  CheckError(struct AmiPragma *, ULONG);
  689. ULONG  Out(ULONG);
  690. ULONG  DoOutput(STRPTR, ...);
  691. ULONG  DoOutputDirect(APTR, ULONG);
  692. /* ------------------------------------------------------------------ */
  693. struct ShortList *NewItem(struct ShortListRoot *);
  694. struct ShortList *RemoveItem(struct ShortListRoot *, struct ShortList *);
  695. void              AddItem(struct ShortListRoot *, struct ShortList *);
  696. /* ------------------------------------------------------------------ */
  697. typedef ULONG (*FuncType)(struct AmiPragma *, ULONG, STRPTR);
  698.  
  699. ULONG FuncAMICALL(struct AmiPragma *, ULONG, STRPTR);
  700. ULONG FuncLIBCALL(struct AmiPragma *, ULONG, STRPTR);
  701. ULONG FuncAsmText(struct AmiPragma *, ULONG, STRPTR);
  702. ULONG FuncAsmCode(struct AmiPragma *, ULONG, STRPTR);
  703. ULONG FuncCSTUBS (struct AmiPragma *, ULONG, STRPTR);
  704. ULONG FuncLVOXDEF(struct AmiPragma *, ULONG, STRPTR);
  705. ULONG FuncLVO    (struct AmiPragma *, ULONG, STRPTR);
  706. ULONG FuncLVOLib (struct AmiPragma *, ULONG, STRPTR);
  707. ULONG FuncLocCode(struct AmiPragma *, ULONG, STRPTR);
  708. ULONG FuncLocText(struct AmiPragma *, ULONG, STRPTR);
  709. ULONG FuncInline (struct AmiPragma *, ULONG, STRPTR);
  710. ULONG FuncInlineNS(struct AmiPragma *, ULONG, STRPTR);
  711. ULONG FuncPowerUP(struct AmiPragma *, ULONG, STRPTR);
  712. ULONG FuncFPCUnit(struct AmiPragma *, ULONG, STRPTR);
  713. ULONG FuncFPCType(struct AmiPragma *, ULONG, STRPTR);
  714. ULONG FuncBMAP   (struct AmiPragma *, ULONG, STRPTR);
  715. ULONG FuncVBCCInline (struct AmiPragma *, ULONG, STRPTR);
  716. ULONG FuncVBCCWOSText(struct AmiPragma *, ULONG, STRPTR);
  717. ULONG FuncVBCCWOSCode(struct AmiPragma *, ULONG, STRPTR);
  718. ULONG FuncVBCCPUPText(struct AmiPragma *, ULONG, STRPTR);
  719. ULONG FuncVBCCPUPCode(struct AmiPragma *, ULONG, STRPTR);
  720. ULONG CallFunc(ULONG, STRPTR, FuncType);
  721. /* ------------------------------------------------------------------ */
  722. LONG   AddClibEntry(STRPTR, STRPTR, ULONG);
  723. LONG   ScanClibFile(STRPTR, STRPTR);
  724. LONG   IsCPPType(struct CPP_NameType *, UBYTE);
  725. LONG   GetCPPType(struct CPP_NameType *, STRPTR);
  726. struct ClibData *GetClibFunc(STRPTR, struct AmiPragma *, ULONG);
  727. LONG   CheckKeyword(STRPTR, STRPTR, LONG);
  728. ULONG  CopyCPPType(STRPTR, ULONG, struct ClibData *, struct AmiArgs *);
  729. ULONG  OutClibType(struct CPP_NameType *, STRPTR);
  730. ULONG  OutPASCALType(struct CPP_NameType *, STRPTR, ULONG);
  731. /* ------------------------------------------------------------------ */
  732. ULONG CallPrag(ULONG, STRPTR, FuncType);
  733. ULONG CreatePragmaFile(STRPTR, STRPTR, STRPTR, STRPTR, ULONG);
  734. ULONG CreateCSTUBSFile(void);
  735. ULONG CreateLVOFile(ULONG);
  736. ULONG CreateAsmStubs(ULONG, ULONG);
  737. ULONG CreateProtoFile(ULONG);
  738. ULONG CreateLocalData(STRPTR, ULONG, STRPTR, ULONG);
  739. ULONG CreateInline(ULONG, ULONG);
  740. ULONG CreateSASPowerUP(ULONG);
  741. ULONG CreateProtoPowerUP(void);
  742. ULONG CreateFPCUnit(void);
  743. ULONG CreateBMAP(void);
  744. ULONG CreateVBCCInline(void);
  745. ULONG CreateVBCC(ULONG, ULONG);
  746. ULONG CreateVBCCPUPCode(ULONG);
  747. /* ------------------------------------------------------------------ */
  748. ULONG GetName(struct NameList *, struct ShortListRoot *, ULONG);
  749. ULONG MakeFD(struct PragList *);
  750. void  OptimizeFDData(struct PragData *);
  751. UBYTE GetHexValue(UBYTE);
  752. UBYTE GetDoubleHexValue(UBYTE *);
  753. ULONG AddFDData(struct ShortListRoot *, struct FDData *);
  754. ULONG GetLibData(struct FDData *);
  755. ULONG GetFlibData(struct FDData *);
  756. ULONG GetAmiData(struct FDData *);
  757. ULONG CreateFDFile(STRPTR);
  758. /* ------------------------------------------------------------------ */
  759. void main(void);
  760. void End(ULONG);
  761.  
  762. enum {
  763. ERR_TAGFUNC_NEEDS_ARGUMENT,
  764. ERR_CANNOT_CONVERT_PRAGMA_TAGCALL,
  765. ERR_TAG_DEF_WITHOUT_PRAGMA,
  766. ERR_BASENAME_DECLARED_TWICE,
  767. ERR_EXPECTED_SLASH_IN_BASENAME,
  768. ERR_EXPECTED_BASENAME,
  769. ERR_EXPECTED_BIAS_VALUE,
  770. ERR_ASSUMING_POSITIVE_BIAS_VALUE,
  771. ERR_MISSING_FUNCTION_NAME,
  772. ERR_EXPECTED_OPEN_BRACKET,
  773. ERR_TO_MUCH_ARGUMENTS,
  774. ERR_EXPECTED_ARGUMENT_NAME,
  775. ERR_EXPECTED_CLOSE_BRACKET,
  776. ERR_EXPECTED_REGISTER_NAME,
  777. ERR_A7_NOT_ALLOWED,
  778. ERR_REGISTER_USED_TWICE,
  779. ERR_ARGUMENTNUMBER_DIFFERS_FROM_REGISTERNUMBER,
  780. ERR_ASSUMING_BIAS_OF_30,
  781. ERR_EXTRA_CHARACTERS,
  782. ERR_MISSING_BASENAME,
  783. ERR_WRITING_FILE,
  784. ERR_EXPECTED_COMMA,
  785. ERR_DIFFERENT_TO_PREVIOUS,
  786. ERR_UNKNOWN_VARIABLE_TYPE,
  787. ERR_UNKNOWN_ERROR,
  788. ERR_MISSING_END,
  789. ERR_PROTOTYPE_MISSING,
  790. ERR_NOPROTOTYPES_FILE,
  791. ERR_UNKNOWN_DIRECTIVE,
  792. ERR_INLINE_A4_AND_A5,
  793. ERR_INLINE_D7_AND_A45,
  794. ERR_MISSING_SHORTBASENAME,
  795. ERR_USER_ABORT,
  796. ERR_A6_NOT_ALLOWED,
  797. ERR_EMPTY_FILE,
  798. ERR_FLOATARG_NOT_ALLOWED,
  799. ERR_WRONG_TYPES_LINE,
  800. ERR_LONG_DOUBLE,
  801. ERR_CLIB_ARG_COUNT,
  802. ERR_OPEN_FILE,
  803. ERR_A5_NOT_ALLOWED,
  804. ERR_PPC_FUNCTION_NOT_SUPPORTED,
  805. ERR_UNKNOWN_ABI,
  806. };
  807.  
  808. const struct ErrField {
  809.   UBYTE  Type;    /* 0 = Error, 1 = Warning */
  810.   UBYTE  Skip;
  811.   STRPTR Error;
  812. } Errors[] = {
  813. {1, 1, "Tag function must have arguments."},
  814. {1, 1, "Cannot convert pragma name into tag name."},
  815. {1, 1, "Tag definition without preceding Pragma."},
  816. {1, 0, "Basename declared twice."},
  817. {1, 0, "Expected preceding _ in Basename."},
  818. {1, 1, "Expected Basename."},
  819. {1, 0, "Expected Bias value."},
  820. {1, 0, "Assuming positive bias value."},
  821. {1, 1, "Missing function name."},
  822. {1, 1, "Expected '('."},
  823. {1, 1, "Too much arguments."},
  824. {1, 1, "Expected argument name."},
  825. {1, 1, "Expected ')'."},
  826. {1, 1, "Expected register name."},
  827. {1, 1, "A7 not allowed as argument register."},
  828. {1, 1, "Register used twice."},
  829. {1, 0, "Number of arguments != number of registers."},
  830. {1, 0, "Assuming bias of 30."},
  831. {1, 1, "Extra characters."},
  832. {0, 0, "Missing Basename in FD file."},
  833. {0, 0, "Failed to write destination file."},
  834. {1, 1, "Expected ','."},
  835. {0, 1, "Data different to previous given."},
  836. {1, 0, "Unknown type of argument %ld."},
  837. {0, 0, "Unknown problem: program error or corrupt input data."},
  838. {1, 0, "Missing ##end."},
  839. {1, 0, "Prototype for function \"%s\" not found."},
  840. {0, 0, "No prototypes file (CLIB parameter) was specified."},
  841. {1, 1, "Unknown directive '##%s' found."},
  842. {1, 0, "Usage of both A4 and A5 is not supported."},
  843. {1, 0, "Usage of both D7 and A4 or A5 is not supported."},
  844. {0, 0, "Missing Basename in FD file and FD filename."},
  845. {0, 0, "User aborted operation."},
  846. {1, 0, "A6 not allowed as argument register."},
  847. {1, 0, "Empty or partial file deleted."},
  848. {1, 1, "Floating point arguments not allowed."},
  849. {0, 0, "Wrong definition in external type definition file."},
  850. {1, 0, "Cannot determine if FPU argument is double or single."},
  851. {1, 0, "CLIB argument count differs for %s (%ld != %ld)."},
  852. {0, 0, "Could not open file \"%s\"."},
  853. {1, 0, "A5 cannot be used as argument register."},
  854. {1, 0, "Format supports no PPC functions."},
  855. {1, 0, "Unknown ABI '%s' found."},
  856. };
  857.  
  858. const struct CPP_TypeField CPP_Field[] = {
  859. {"long",        4, 0,                   CPP_TYPE_LONG},
  860. {"LONG",        4, 0,                   CPP_TYPE_LONG},
  861. {"BPTR",        4, 0,                   CPP_TYPE_LONG},
  862. {"BSTR",        4, 0,                   CPP_TYPE_LONG},
  863. {"CxObj",       5, 0,                   CPP_TYPE_LONG},
  864. {"CxMsg",       5, 0,                   CPP_TYPE_LONG},
  865. {"ULONG",       5, CPP_FLAG_UNSIGNED,   CPP_TYPE_LONG},
  866. {"LONGBITS",    8, CPP_FLAG_UNSIGNED,   CPP_TYPE_LONG},
  867. {"CPTR",        4, CPP_FLAG_UNSIGNED,   CPP_TYPE_LONG},
  868. {"Tag",         3, CPP_FLAG_UNSIGNED,   CPP_TYPE_LONG},
  869. {"Object",      6, CPP_FLAG_UNSIGNED,   CPP_TYPE_LONG},
  870. {"short",       5, 0,                   CPP_TYPE_WORD},
  871. {"SHORT",       5, 0,                   CPP_TYPE_WORD},
  872. {"COUNT",       5, 0,                   CPP_TYPE_WORD},
  873. {"WORD",        4, 0,                   CPP_TYPE_WORD},
  874. {"USHORT",      6, CPP_FLAG_UNSIGNED,   CPP_TYPE_WORD},
  875. {"UWORD",       5, CPP_FLAG_UNSIGNED,   CPP_TYPE_WORD},
  876. {"UCOUNT",      6, CPP_FLAG_UNSIGNED,   CPP_TYPE_WORD},
  877. {"WORDBITS",    8, CPP_FLAG_UNSIGNED,   CPP_TYPE_WORD},
  878. {"RPTR",        4, CPP_FLAG_UNSIGNED,   CPP_TYPE_WORD},
  879. {"BOOL",        4, CPP_FLAG_BOOLEAN,    CPP_TYPE_WORD},
  880. {"char",        4, 0,                   CPP_TYPE_BYTE},
  881. {"BYTE",        4, 0,                   CPP_TYPE_BYTE},
  882. {"UBYTE",       5, CPP_FLAG_UNSIGNED,   CPP_TYPE_BYTE},
  883. {"TEXT",        4, CPP_FLAG_UNSIGNED,   CPP_TYPE_BYTE},
  884. {"BYTEBITS",    8, CPP_FLAG_UNSIGNED,   CPP_TYPE_BYTE},
  885. {"float",       5, 0,                   CPP_TYPE_FLOAT},
  886. {"FLOAT",       5, 0,                   CPP_TYPE_FLOAT},
  887. {"double",      6, 0,                   CPP_TYPE_DOUBLE},
  888. {"DOUBLE",      6, 0,                   CPP_TYPE_DOUBLE},
  889. {"void",        4, 0,                   CPP_TYPE_VOID},
  890. {"VOID",        4, 0,                   CPP_TYPE_VOID},
  891. {"APTR",        4, CPP_FLAG_POINTER,    CPP_TYPE_VOID},
  892. {"STRPTR",      6, CPP_FLAG_POINTER|CPP_FLAG_STRPTR|CPP_FLAG_UNSIGNED,  CPP_TYPE_BYTE},
  893. {"CONST_STRPTR",12,CPP_FLAG_POINTER|CPP_FLAG_CONST,                     CPP_TYPE_BYTE},
  894. {"ClassID",     7, CPP_FLAG_POINTER|CPP_FLAG_UNSIGNED,                  CPP_TYPE_BYTE},
  895. {"PLANEPTR",    8, CPP_FLAG_POINTER|CPP_FLAG_UNSIGNED,                  CPP_TYPE_BYTE},
  896. {0,0,0,0},
  897. };
  898.  
  899. const struct Proto_LibType Proto_LibTypes[] = {
  900. {"DOSBase",                     "DosLibrary"},
  901. {"SysBase",                     "ExecBase"},
  902. {"ExpansionBase",               "ExpansionBase"},
  903. {"GfxBase",                     "GfxBase"},
  904. {"IntuitionBase",               "IntuitionBase"},
  905. {"LocaleBase",                  "LocaleBase"},
  906. {"MathIeeeDoubBasBase",         "MathIEEEBase"},
  907. {"MathIeeeDoubTransBase",       "MathIEEEBase"},
  908. {"MathIeeeSingBasBase",         "MathIEEEBase"},
  909. {"MathIeeeSingTransBase",       "MathIEEEBase"},
  910. {"RealTimeBase",                "RealTimeBase"},
  911. {"RexxSysBase",                 "RxsLib"},
  912. {"UtilityBase",                 "UtilityBase"},
  913. /* resources - The Node entries may be correct, but I don't know it. */
  914. /* {"BattClockBase",            "Node"}, */
  915. /* {"BattMemBase",              "Node"}, */
  916. {"DiskBase",                    "DiskResource"},
  917. /* {"MiscBase",                 "Node"}, */
  918. /* {"PotgoBase",                "Node"}, */
  919. /* devices */
  920. {"ConsoleDevice",               "Device"},
  921. {"InputBase",                   "Device"},
  922. {"RamdriveDevice",              "Device"},
  923. {"TimerBase",                   "Device"},
  924. /* non default Basenames */
  925. {"DatamasterBase",              "DatamasterBase"},
  926. {"PPBase",                      "PPBase"},
  927. {"ReqToolsBase",                "ReqToolsBase"},
  928. {"UnpackBase",                  "UnpackLibrary"},
  929. {"xfdMasterBase",               "xfdMasterBase"},
  930. {"xadMasterBase",               "xadMasterBase"},
  931. {"xvsBase",                     "xvsBase"},
  932. {"GTXBase",                     "GTXBase"},
  933. {"ArpBase",                     "ArpBase"},
  934. {0, 0},
  935. };
  936.  
  937. /* CachePostDMA, CachePreDMA are done by #?DMA check */
  938. const struct Pragma_ExecpName Pragma_ExecpNames[] = {
  939. {"VFWritef",                    "FWritef"},
  940. {"VFPrintf",                    "FPrintf"},
  941. {"VPrintf",                     "Printf"},
  942. {"ReadArgs",                    0},
  943. {"FreeArgs",                    0},
  944. {"CloneTagItems",               0},
  945. {"FindTagItem",                 0},
  946. {"FreeTagItems",                0},
  947. {"GetTagData",                  0},
  948. {"PackBoolTags",                0},
  949. {"PackStructureTags",           0},
  950. {"UnpackStructureTags",         0},
  951. {"BGUI_PackStructureTags",      0},
  952. {"BGUI_UnpackStructureTags",    0},
  953. {0,0},
  954. };
  955.  
  956. /* For double tagcall names (currently only necessary for dos.library and
  957. datatypes.library). Only one alias supported for a function! */
  958. const struct Pragma_AliasName Pragma_AliasNames[] = {
  959. {"AllocDosObject",      "AllocDosObjectTagList",        FUNCFLAG_NORMAL},
  960. {"CreateNewProc",       "CreateNewProcTagList",         FUNCFLAG_NORMAL},
  961. {"NewLoadSeg",          "NewLoadSegTagList",            FUNCFLAG_NORMAL},
  962. {"SystemTagList",       "System",                       FUNCFLAG_NORMAL},
  963. {"RefreshDTObject",     "RefreshDTObjects",             FUNCFLAG_TAG},
  964. {0,0,0},
  965. };
  966.  
  967. /* special names, which get an x before name in BMAP files */
  968. const STRPTR BMAPSpecial[] =
  969. {"abs", "Close", "Exit", "Input", "Open", "Output", "Read", "tan",
  970. "Translate", "Wait", "Write", 0};
  971.  
  972. STRPTR DupString(STRPTR Str, ULONG Len)
  973. {
  974.   STRPTR res;
  975.   if((res = AllocListMem(Len+1)))
  976.   {
  977.     CopyMem(Str, res, Len);
  978.     res[Len] = '\0';
  979.   }
  980.   return res;
  981. }
  982.  
  983. STRPTR AllocListMem(ULONG size)
  984. {
  985.   if(mempool) /* mempool exists only for OS39 and up */
  986.     return (STRPTR) AllocPooled(mempool, size);
  987.   else /* else use linked list */
  988.   {
  989.     struct RememberMem *r;
  990.  
  991.     size += sizeof(struct RememberMem);
  992.  
  993.     if((r = (struct RememberMem *) AllocMem(size, MEMF_ANY|MEMF_CLEAR)))
  994.     {
  995.       r->rm_Next = remember;
  996.       r->rm_Size = size;
  997.       remember = r;
  998.       return ((STRPTR) r)+sizeof(struct RememberMem);
  999.     }
  1000.     return 0;
  1001.   }
  1002. }
  1003.  
  1004. STRPTR SkipBlanks(STRPTR OldPtr)
  1005. {
  1006.   while(*OldPtr == ' ' || *OldPtr == '\t')
  1007.     ++OldPtr;
  1008.   return OldPtr;
  1009. }
  1010.  
  1011. STRPTR SkipBlanksRet(STRPTR OldPtr)
  1012. {
  1013.   while(*OldPtr == ' ' || *OldPtr == '\t' || *OldPtr == '\n')
  1014.     ++OldPtr;
  1015.   return OldPtr;
  1016. }
  1017.  
  1018. /*
  1019.   This function is used to skip over variable names.
  1020.  
  1021.   Inputs: OldPtr  - pointer to the beginning of a string.
  1022.  
  1023.   Result: Pointer to the first character of the string, that is not one
  1024.     of a-z, A-Z, 0-9 or the underscore.
  1025. */
  1026.  
  1027. STRPTR SkipName(STRPTR OldPtr)
  1028. {
  1029.   while(isalnum(*OldPtr) || *OldPtr == '_')
  1030.     ++OldPtr;
  1031.   return OldPtr;
  1032. }
  1033.  
  1034. STRPTR GetBaseType(void)
  1035. {
  1036.   ULONG i;
  1037.   STRPTR str = "Library";
  1038.  
  1039.   for(i = 0; BaseName && Proto_LibTypes[i].BaseName; ++i)
  1040.   {
  1041.     if(!(strcmp(Proto_LibTypes[i].BaseName, BaseName)))
  1042.     {
  1043.       str = Proto_LibTypes[i].StructureName; break;
  1044.     }
  1045.   }
  1046.   return str;
  1047. }
  1048.  
  1049. ULONG CloseDest(STRPTR name)
  1050. {
  1051.   if(out.file)
  1052.   {
  1053.     Out(out.size);              /* clears Output-Buffer */
  1054.     Close(out.file);
  1055.     out.file = 0;
  1056.  
  1057.     if(!(Flags & FLAG_DONE) || !Output_Error || CTRL_C)
  1058.     {
  1059.       DoError(ERR_EMPTY_FILE, 0);
  1060.       DeleteFile(name); return 0;
  1061.     }
  1062.     Flags &= ~FLAG_DONE;        /* clear the flag */
  1063.   }
  1064.   else
  1065.     return 0;
  1066.   return 1;
  1067. }
  1068.  
  1069. ULONG MakeTagFunction(struct AmiPragma *ap)
  1070. {
  1071.   ULONG len = strlen(ap->FuncName), i=0;
  1072.  
  1073. #ifdef DEBUG_OLD
  1074.   VPrintf("MakeTagFunction:\n", 0);
  1075. #endif
  1076.  
  1077.   if(!ap->NumArgs)
  1078.     return 1;
  1079.  
  1080.   ++tagfuncs;
  1081.  
  1082.   while(Pragma_ExecpNames[i].FunctionName && /* check the exception names */
  1083.   strcmp(ap->FuncName, Pragma_ExecpNames[i].FunctionName))
  1084.     ++i;
  1085.  
  1086.   if(Pragma_ExecpNames[i].FunctionName)
  1087.   {
  1088.     if(!(ap->TagName = Pragma_ExecpNames[i].TagName));
  1089.       --tagfuncs;
  1090.   }
  1091.   else if(ap->FuncName[len-1] == 'A')
  1092.   {
  1093.     if(!strcmp(ap->FuncName+len-3, "DMA") ||
  1094.     !strcmp(ap->FuncName+len-4, "MESA")) /* skip names with DMA or MESA at end */
  1095.     { --tagfuncs; return 1;}
  1096.     if(!(ap->TagName = DupString(ap->FuncName, len-1)))
  1097.       return 0;
  1098.   }
  1099.   else if(!strcmp(ap->FuncName + len-7, "TagList"))
  1100.   {
  1101.     if(!(ap->TagName = DupString(ap->FuncName, len-3)))
  1102.       return 0;
  1103.     ap->TagName[len-4] = 's';
  1104.   }
  1105.   else if(!strcmp(ap->FuncName + len-4, "Args"))
  1106.   {
  1107.     if(!(ap->TagName = DupString(ap->FuncName, len-4)))
  1108.       return 0;
  1109.   }
  1110.   else if(!stricmp(ap->Args[ap->NumArgs-1].ArgName, "tags") ||
  1111.   !stricmp(ap->Args[ap->NumArgs-1].ArgName, "taglist"))
  1112.   {
  1113.     if(!(ap->TagName = DupString(ap->FuncName, len+4)))
  1114.       return 0;
  1115.     CopyMem("Tags", ap->TagName + len, 5);
  1116.   }
  1117.   else if(!stricmp(ap->Args[ap->NumArgs-1].ArgName, "args"))
  1118.   {
  1119.     if(!(ap->TagName = DupString(ap->FuncName, len+4)))
  1120.       return 0;
  1121.     CopyMem("Args", ap->TagName + len, 5);
  1122.   }
  1123.   else
  1124.     --tagfuncs; /* not a tagfunction, incrementing was false, undo it */
  1125.  
  1126.   return 1;
  1127. }
  1128.  
  1129. void MakeLines(STRPTR buffer, ULONG size)
  1130. {
  1131.   if(size && buffer)
  1132.   {
  1133.     /* make a real C++ zero string ending line */
  1134.     while(--size)
  1135.     {
  1136.       if(*buffer == '\n')
  1137.         *buffer = '\0';
  1138.       ++buffer;
  1139.     }
  1140.     *buffer = '\0';
  1141.   }
  1142. }
  1143.  
  1144. /* Do any special functions, which cannot be done with other exception
  1145.    stuff - currently only dos.library DoPkt function. */
  1146. ULONG SpecialFuncs(void)
  1147. {
  1148.   struct AmiPragma *ap = (struct AmiPragma *) AmiPragma.Last;
  1149.  
  1150.   if(ap->Bias == 0xF0 && !strcmp("DoPkt", ap->FuncName))
  1151.   {
  1152.     struct AmiPragma *d;
  1153.     ULONG i;
  1154.  
  1155.     for(i = 0; i < 5; ++i)
  1156.     {
  1157.       if(!(d = (struct AmiPragma *) NewItem(&AmiPragma)))
  1158.         return 0;
  1159.       CopyMem(ap, d, sizeof(struct AmiPragma));
  1160.       d->FuncName = DupString(ap->FuncName, 6);
  1161.       d->FuncName[5] = '0'+i;
  1162.       d->NumArgs = d->CallArgs = i + 2;
  1163.       AddItem(&AmiPragma, (struct ShortList *) d);
  1164.     }
  1165.   }
  1166.   return 1;
  1167. }
  1168.  
  1169. void SortFDList(void)
  1170. {
  1171.   struct AmiPragma *ap = (struct AmiPragma *) AmiPragma.First, *ap2, *ap3;
  1172.   AmiPragma.First = AmiPragma.Last = 0;
  1173.  
  1174.   while(ap)
  1175.   {
  1176.     ap3 = 0;
  1177.     ap2 = (struct AmiPragma *) AmiPragma.First;
  1178.  
  1179.     /* for FD2Inline style we need to use strcmp instead of stricmp here */
  1180.     while(ap2 && stricmp(ap2->FuncName, ap->FuncName) < 0)
  1181.     {
  1182.       ap3 = ap2;
  1183.       ap2 = (struct AmiPragma *) ap2->List.Next;
  1184.     }
  1185.  
  1186.     ap2 = ap;
  1187.     ap = (struct AmiPragma *) ap->List.Next;
  1188.  
  1189.     if(ap3)
  1190.     {
  1191.       ap2->List.Next = (struct ShortList *) ap3->List.Next;
  1192.       ap3->List.Next = (struct ShortList *) ap2;
  1193.     }
  1194.     else
  1195.     {
  1196.       ap2->List.Next = AmiPragma.First;
  1197.       AmiPragma.First = (struct ShortList *) ap2;
  1198.     }
  1199.     if(ap && !ap->List.Next)
  1200.       AmiPragma.Last = (struct ShortList *) ap2;
  1201.   }
  1202. }
  1203.  
  1204. ULONG ScanFDFile(void)
  1205. {
  1206. #ifdef DEBUG_OLD
  1207.   VPrintf("ScanFDFile:\n", 0);
  1208. #endif
  1209.  
  1210.   ULONG _public = 1;
  1211.   LONG bias = -1;
  1212.   ULONG linenum, len;
  1213.   ULONG actcom = 0;
  1214.   ULONG abi = ABI_M68K;
  1215.  
  1216.   for(linenum = 1; !CTRL_C && in.pos < in.buf + in.size; ++linenum)
  1217.   {
  1218.     if(*in.pos == '*')          /*  Comment   */
  1219.     {
  1220.       STRPTR oldpos = in.pos;
  1221. #ifdef DEBUG_OLD
  1222.   VPrintf("ScanFDFile: found a comment\n", 0);
  1223. #endif
  1224.       in.pos = SkipBlanks(in.pos+1);
  1225.       if(!strnicmp(in.pos, "notagcall", 9))
  1226.       {
  1227.         struct AmiPragma *ap = (struct AmiPragma *) AmiPragma.Last;
  1228.         
  1229.         if(ap->TagName)
  1230.         {
  1231.           --tagfuncs; ap->TagName = 0;
  1232.         }
  1233.         in.pos = SkipBlanks(in.pos + 9);
  1234.       }
  1235.       else if(!strnicmp(in.pos, "tagcall", 7))  /*  Tag to create?  */
  1236.       {
  1237.         struct AmiPragma *prevpragma = (struct AmiPragma *) AmiPragma.Last;
  1238.  
  1239.         in.pos = SkipBlanks(in.pos + 7);
  1240.         if(!prevpragma)
  1241.         {
  1242.           DoError(ERR_TAG_DEF_WITHOUT_PRAGMA, linenum);
  1243.           ++in.pos;
  1244.           continue;
  1245.         }
  1246.  
  1247.         if(!prevpragma->NumArgs)
  1248.         {
  1249.           DoError(ERR_TAGFUNC_NEEDS_ARGUMENT, linenum);
  1250.           ++in.pos;
  1251.           continue;
  1252.         }
  1253.  
  1254.         /* Get the tag functions name. */
  1255.  
  1256.         if(!prevpragma->TagName && (_public || (Flags & FLAG_PRIVATE)))
  1257.           ++tagfuncs;
  1258.  
  1259.         if(*in.pos)
  1260.         {
  1261.           STRPTR oldptr, tptr = prevpragma->TagName;
  1262.         
  1263.           len = strlen(prevpragma->FuncName)+strlen(in.pos)+1;
  1264.           if(!(prevpragma->TagName = DupString(prevpragma->FuncName, len)))
  1265.             return 0;
  1266.  
  1267.           if(*in.pos == '-')
  1268.           {
  1269.             STRPTR removeptr;
  1270.  
  1271.             oldptr = in.pos = SkipBlanks(in.pos+1);
  1272.             in.pos = SkipName(in.pos);
  1273.             if((len = in.pos-oldptr))
  1274.             {
  1275.               removeptr = prevpragma->TagName+strlen(prevpragma->TagName)-len;
  1276.               if(strncmp(removeptr, oldptr, len))
  1277.               {
  1278. #ifdef DEBUG_OLD
  1279.   {
  1280.     struct data {STRPTR a;STRPTR b;ULONG c;} a;
  1281.     a.a = removeptr;
  1282.     a.b = oldptr;
  1283.     a.c = len;
  1284.     VPrintf("ScanFDFile: *tagcall -: %s, %s, %ld\n", &a);
  1285.   }
  1286. #endif
  1287.                 DoError(ERR_CANNOT_CONVERT_PRAGMA_TAGCALL, linenum);
  1288.                 prevpragma->TagName = tptr;
  1289.                 ++in.pos;
  1290.                 continue;
  1291.               }
  1292.  
  1293.               *removeptr = '\0';
  1294.             }
  1295.             in.pos = SkipBlanks(in.pos);
  1296.           }
  1297.           if(*in.pos == '+')
  1298.             in.pos = SkipBlanks(in.pos+1);
  1299.           else
  1300.             *in.pos = toupper(*in.pos);
  1301.  
  1302.           in.pos = SkipName((oldptr = in.pos));
  1303.           len = in.pos-oldptr;
  1304.           if(len)
  1305.           {
  1306.             ULONG a = strlen(prevpragma->TagName);
  1307.             CopyMem(oldptr, prevpragma->TagName+a, len);
  1308.             prevpragma->TagName[a+len] = '\0';
  1309.           }
  1310.         }
  1311.         else if(!prevpragma->TagName)
  1312.         {
  1313.           len = strlen(prevpragma->FuncName);
  1314.           if(!(prevpragma->TagName = DupString(prevpragma->FuncName, len+4)))
  1315.             return 0;
  1316.           CopyMem("Tags", prevpragma->TagName + len, 5);
  1317.         }
  1318.       }
  1319.       else
  1320.       {
  1321.         if(actcom)
  1322.           *(oldpos-1) = '\n';
  1323.         else if(Flags & FLAG_DOCOMMENT)
  1324.         {
  1325.           struct Comment *d;
  1326.           if(!(d = (struct Comment *) NewItem(&Comment)))
  1327.             return 0;
  1328.           d->Bias = bias;
  1329.           d->Data = oldpos;
  1330.           AddItem(&Comment, (struct ShortList *) d);
  1331.           actcom = 1;
  1332.         }
  1333.         while(*in.pos)
  1334.           ++in.pos;
  1335.       }
  1336.     }
  1337.     else if(*in.pos == '#' && in.pos[1] == '#')
  1338.     {
  1339.       in.pos += 2;
  1340.       actcom = 0; /* no Comment */
  1341.  
  1342.       if(!strnicmp(in.pos, "base", 4))
  1343.       {
  1344. #ifdef DEBUG_OLD
  1345.   VPrintf("ScanFDFile: found ##base\n", 0);
  1346. #endif
  1347.         STRPTR oldptr;
  1348.  
  1349.         if(BaseName)
  1350.           DoError(ERR_BASENAME_DECLARED_TWICE, linenum);
  1351.  
  1352.         in.pos = SkipBlanks(in.pos+4);
  1353.         if(*in.pos != '_')
  1354.           DoError(ERR_EXPECTED_SLASH_IN_BASENAME, linenum);
  1355.         else
  1356.           ++in.pos;
  1357.  
  1358.         in.pos = SkipName((oldptr = in.pos));
  1359.         if((len = in.pos-oldptr))
  1360.         {
  1361.           if(!(BaseName = DupString(oldptr, len)))
  1362.             return 0;
  1363.           if(!ShortBaseName && !(ShortBaseName = DupString(BaseName, len-4)))
  1364.             return 0;
  1365.         }
  1366.         else
  1367.           DoError(ERR_EXPECTED_BASENAME, linenum);
  1368.       }
  1369.       else if(!strnicmp(in.pos, "bias", 4))
  1370.       {
  1371. #ifdef DEBUG_OLD
  1372.   VPrintf("ScanFDFile: found ##bias\n", 0);
  1373. #endif
  1374.         STRPTR ptr;
  1375.         LONG newbias;
  1376.  
  1377.         in.pos += 5;
  1378.         newbias = strtol(in.pos, &ptr, 10);
  1379.         if(ptr == in.pos)
  1380.           DoError(ERR_EXPECTED_BIAS_VALUE, linenum);
  1381.         else if(newbias < 0)
  1382.         {
  1383.           DoError(ERR_ASSUMING_POSITIVE_BIAS_VALUE, linenum);
  1384.           bias = -newbias;
  1385.         }
  1386.         else
  1387.           bias = newbias;
  1388.         in.pos = SkipName(in.pos);
  1389.       }
  1390.       else if(!strnicmp(in.pos, "end", 3))
  1391.       {
  1392.         bias = 0; break;
  1393.       }
  1394.       else if(!strnicmp(in.pos, "shadow", 6)) /* introduced by Storm */
  1395.       {
  1396.         in.pos += 6;
  1397.         bias -= BIAS_OFFSET;
  1398.       }
  1399.       else if(!strnicmp(in.pos, "public", 6))
  1400.       {
  1401.         in.pos += 6;
  1402.         _public = 1;
  1403.       }
  1404.       else if(!strnicmp(in.pos, "private", 7))
  1405.       {
  1406.         in.pos += 7;
  1407.         _public = 0;
  1408.       }
  1409.       else if(!strnicmp(in.pos, "abi", 3))
  1410.       {
  1411.         in.pos = SkipBlanks(in.pos+3);
  1412.         if(!strnicmp(in.pos, "M68k", 4))
  1413.         {
  1414.           abi = ABI_M68K; in.pos += 4;
  1415.         }
  1416.         else if(!strnicmp(in.pos, "PPC0", 4))
  1417.         {
  1418.           abi = ABI_PPC0; in.pos += 4;
  1419.         }
  1420.         else if(!strnicmp(in.pos, "PPC2", 4))
  1421.         {
  1422.           abi = ABI_PPC2; in.pos += 4;
  1423.         }
  1424.         else if(!strnicmp(in.pos, "PPC", 3))
  1425.         {
  1426.           abi = ABI_PPC; in.pos += 3;
  1427.         }
  1428.         else
  1429.           DoError(ERR_UNKNOWN_ABI, linenum, in.pos);
  1430.       }
  1431.       else
  1432.         DoError(ERR_UNKNOWN_DIRECTIVE, linenum, in.pos);
  1433.     }
  1434.     else if(abi != ABI_M68K)
  1435.     {
  1436. /*******************************************************/
  1437. #ifdef DEBUG
  1438.   VPrintf("ScanFDFile: scan PPC Function\n", 0);
  1439. #endif
  1440.       STRPTR oldptr;
  1441.       struct AmiPragma ap;
  1442.  
  1443.       memset(&ap, 0, sizeof(struct AmiPragma));
  1444.       actcom = 0;
  1445.  
  1446.       oldptr = in.pos = SkipBlanks(in.pos);
  1447.       in.pos = SkipName(oldptr);
  1448.       if(!(len = in.pos-oldptr))
  1449.       {
  1450.         DoError(ERR_MISSING_FUNCTION_NAME, linenum);
  1451.         ++in.pos;
  1452.         continue;
  1453.       }
  1454.  
  1455.       ap.FuncName = oldptr;
  1456.  
  1457.       in.pos = SkipBlanks(in.pos);
  1458.       if(*in.pos != '('/*)*/)
  1459.       {
  1460.         DoError(ERR_EXPECTED_OPEN_BRACKET, linenum);
  1461.         ++in.pos;
  1462.         continue;
  1463.       }
  1464.  
  1465.       *in.pos = '\0'; /* create c string of FunctionName */
  1466.  
  1467. #ifdef DEBUG
  1468.   VPrintf("ScanFDFile: found ppc function %s\n", &ap.FuncName);
  1469. #endif
  1470.  
  1471.       do
  1472.       {
  1473.         oldptr = in.pos = SkipBlanks(in.pos+1);
  1474.  
  1475.         if(*in.pos == /*(*/')' && !ap.CallArgs)
  1476.           break;
  1477.  
  1478.         if(ap.CallArgs >= MAXREGPPC)
  1479.         {
  1480.           DoError(ERR_TO_MUCH_ARGUMENTS, linenum); break;
  1481.         }
  1482.  
  1483.         in.pos = SkipName(oldptr);
  1484.         if(*in.pos == '*')
  1485.           ++in.pos;
  1486.         if(!(len = in.pos-oldptr))
  1487.         {
  1488.           DoError(ERR_EXPECTED_ARGUMENT_NAME, linenum);
  1489.           break;
  1490.         }
  1491.  
  1492.         ap.Args[ap.CallArgs++].ArgName = oldptr;
  1493.         oldptr = in.pos;
  1494.  
  1495.         in.pos = SkipBlanks(in.pos);
  1496.         if(*in.pos != ',' && *in.pos != '/' && *in.pos != /*(*/')')
  1497.         {
  1498.           DoError(ERR_EXPECTED_CLOSE_BRACKET, linenum);
  1499.           break;
  1500.         }
  1501.         if(*in.pos != /*(*/')') /* create c string ending */
  1502.           *oldptr = '\0';
  1503.       } while(*in.pos != /*(*/')');
  1504.  
  1505.       if(*in.pos != /*(*/')')
  1506.       {
  1507.         while(*(in.pos++))
  1508.           ++in.pos;
  1509.         continue;
  1510.       }
  1511.       else
  1512.         *oldptr = '\0'; /* create c string ending for last argument */
  1513.  
  1514.       if(*(in.pos = SkipBlanks(in.pos+1)) != '('/*)*/)
  1515.       {
  1516.         DoError(ERR_EXPECTED_OPEN_BRACKET, linenum);
  1517.         ++in.pos;
  1518.         continue;
  1519.       }
  1520.       if(*(in.pos = SkipBlanks(in.pos+1)) != /*(*/')')
  1521.       {
  1522.         DoError(ERR_EXPECTED_CLOSE_BRACKET, linenum);
  1523.         ++in.pos;
  1524.         continue;
  1525.       }
  1526.       ++in.pos;
  1527.  
  1528.       ap.Bias = bias;
  1529.       ap.Line = linenum;
  1530.       ap.NumArgs = ap.CallArgs;
  1531.       bias += BIAS_OFFSET;
  1532.  
  1533.       if(bias == -1)
  1534.       {
  1535.         DoError(ERR_ASSUMING_BIAS_OF_30, linenum);
  1536.         bias = 30;
  1537.       }
  1538.  
  1539.       if(_public)
  1540.         ap.Flags |= AMIPRAGFLAG_PUBLIC;
  1541.       ap.Flags |= AMIPRAGFLAG_PPC;
  1542.       if(abi == ABI_PPC0)
  1543.         ap.Flags |= AMIPRAGFLAG_PPC0;
  1544.       else if(abi == ABI_PPC2)
  1545.         ap.Flags |= AMIPRAGFLAG_PPC2;
  1546.  
  1547.       if((_public || (Flags & FLAG_PRIVATE)) && !MakeTagFunction(&ap))
  1548.         return 0;
  1549.       else      /* check the alias names */
  1550.       {
  1551.         ULONG i = 0;
  1552.  
  1553.         while(Pragma_AliasNames[i].FunctionName &&
  1554.         strcmp(ap.FuncName, Pragma_AliasNames[i].FunctionName) &&
  1555.         strcmp(ap.TagName, Pragma_AliasNames[i].FunctionName))
  1556.           ++i;
  1557.  
  1558.         if(Pragma_AliasNames[i].FunctionName)
  1559.           ap.AliasName = (struct Pragma_AliasName *) &Pragma_AliasNames[i];
  1560.       }
  1561.  
  1562.       if(!(Flags & FLAG_NOPPC))
  1563.       {
  1564.         struct AmiPragma *d;
  1565.         if(!(d = (struct AmiPragma *) NewItem(&AmiPragma)))
  1566.           return 0;
  1567.         CopyMem(&ap, d, sizeof(struct AmiPragma));
  1568.         AddItem(&AmiPragma, (struct ShortList *) d);
  1569. /*
  1570.         if(!SpecialFuncs())
  1571.           return 0;
  1572. */
  1573.       }
  1574.     }
  1575.     else
  1576.     {
  1577. #ifdef DEBUG_OLD
  1578.   VPrintf("ScanFDFile: scan Function\n", 0);
  1579. #endif
  1580.       STRPTR oldptr;
  1581.       struct AmiPragma ap;
  1582.  
  1583.       memset(&ap, 0, sizeof(struct AmiPragma));
  1584.       actcom = 0;
  1585.  
  1586.       oldptr = in.pos = SkipBlanks(in.pos);
  1587.       in.pos = SkipName(oldptr);
  1588.       if(!(len = in.pos-oldptr))
  1589.       {
  1590.         DoError(ERR_MISSING_FUNCTION_NAME, linenum);
  1591.         ++in.pos;
  1592.         continue;
  1593.       }
  1594.  
  1595.       ap.FuncName = oldptr;
  1596.  
  1597.       in.pos = SkipBlanks(in.pos);
  1598.       if(*in.pos != '('/*)*/)
  1599.       {
  1600.         DoError(ERR_EXPECTED_OPEN_BRACKET, linenum);
  1601.         ++in.pos;
  1602.         continue;
  1603.       }
  1604.  
  1605.       *in.pos = '\0'; /* create c string of FunctionName */
  1606.  
  1607. #ifdef DEBUG_OLD
  1608.   VPrintf("ScanFDFile: found function %s\n", &ap.FuncName);
  1609. #endif
  1610.  
  1611.       do
  1612.       {
  1613.         oldptr = in.pos = SkipBlanks(in.pos+1);
  1614.  
  1615.         if(*in.pos == /*(*/')' && !ap.CallArgs)
  1616.           break;
  1617.  
  1618.         if(ap.CallArgs >= MAXREG-2)
  1619.         {
  1620.           DoError(ERR_TO_MUCH_ARGUMENTS, linenum); break;
  1621.         }
  1622.  
  1623.         in.pos = SkipName(oldptr);
  1624.         if(*in.pos == '*')
  1625.           ++in.pos;
  1626.         if(!(len = in.pos-oldptr))
  1627.         {
  1628.           DoError(ERR_EXPECTED_ARGUMENT_NAME, linenum);
  1629.           break;
  1630.         }
  1631.  
  1632.         ap.Args[ap.CallArgs++].ArgName = oldptr;
  1633.         oldptr = in.pos;
  1634.  
  1635.         in.pos = SkipBlanks(in.pos);
  1636.         if(*in.pos != ',' && *in.pos != '/' && *in.pos != /*(*/')')
  1637.         {
  1638.           DoError(ERR_EXPECTED_CLOSE_BRACKET, linenum);
  1639.           break;
  1640.         }
  1641.         if(*in.pos != /*(*/')') /* create c string ending */
  1642.           *oldptr = '\0';
  1643.       } while(*in.pos != /*(*/')');
  1644.       if(*in.pos != /*(*/')')
  1645.       {
  1646.         while(*(in.pos++))
  1647.           ++in.pos;
  1648.         continue;
  1649.       }
  1650.       else
  1651.         *oldptr = '\0'; /* create c string ending for last argument */
  1652.  
  1653.       if(*(in.pos = SkipBlanks(in.pos+1)) != '('/*)*/)
  1654.       {
  1655.         DoError(ERR_EXPECTED_OPEN_BRACKET, linenum);
  1656.         ++in.pos;
  1657.         continue;
  1658.       }
  1659.  
  1660.       do
  1661.       {
  1662.         ULONG i;
  1663.  
  1664.         oldptr = in.pos = SkipBlanks(in.pos + 1);
  1665.  
  1666.         if(*in.pos == /*(*/')' && !ap.NumArgs)
  1667.           break;
  1668.  
  1669.         in.pos = SkipName(oldptr);
  1670.         len = in.pos-oldptr;
  1671.  
  1672.         for(i = 0; i < MAXREG; ++i)
  1673.           if(!strnicmp(RegNames[i], oldptr, len))
  1674.             break;
  1675.  
  1676.         if(i == MAXREG)
  1677.         {
  1678.           DoError(ERR_EXPECTED_REGISTER_NAME, linenum);
  1679.           break;
  1680.         }
  1681.         else if(i == REG_A6)
  1682.           ap.Flags |= AMIPRAGFLAG_A6USE;
  1683.         else if(i == REG_A5)
  1684.           ap.Flags |= AMIPRAGFLAG_A5USE;
  1685.         else if(i == REG_A4)
  1686.           ap.Flags |= AMIPRAGFLAG_A4USE;
  1687.         else if(i == REG_D7)
  1688.           ap.Flags |= AMIPRAGFLAG_D7USE;
  1689.         else if(i == REG_A7)
  1690.         {
  1691.           DoError(ERR_A7_NOT_ALLOWED, linenum);
  1692.           break;
  1693.         }
  1694.         else if(i >= REG_FP0)
  1695.           ap.Flags |= AMIPRAGFLAG_FLOATARG;
  1696.  
  1697.         ap.Args[ap.NumArgs].ArgReg = i;
  1698.  
  1699.         if(ap.CallArgs < ap.NumArgs)    /* get name when no given */
  1700.           ap.Args[ap.NumArgs].ArgName = RegNames[i];
  1701.  
  1702.         for(i = 0; i < ap.NumArgs; i++)
  1703.         {
  1704.           if(ap.Args[ap.NumArgs].ArgReg == ap.Args[i].ArgReg)
  1705.           {
  1706.             DoError(ERR_REGISTER_USED_TWICE, linenum);
  1707.             break;
  1708.           }
  1709.         }
  1710.         if(i < ap.NumArgs)
  1711.           break;
  1712.  
  1713.         ++ap.NumArgs;
  1714.  
  1715.         in.pos = SkipBlanks(in.pos);
  1716.         if(*in.pos != ',' && *in.pos != '/' && *in.pos != /*(*/')')
  1717.         {
  1718.           DoError(ERR_EXPECTED_CLOSE_BRACKET, linenum);
  1719.           break;
  1720.         }
  1721.       } while(*in.pos != /*(*/')');
  1722.  
  1723.       ap.Bias = bias;
  1724.       ap.Line = linenum;
  1725.       bias += BIAS_OFFSET;
  1726.  
  1727.       if(*in.pos != /*(*/')')
  1728.       {
  1729.         while(*(in.pos++))
  1730.           ++in.pos;
  1731.         continue;
  1732.       }
  1733.       else
  1734.         ++in.pos;
  1735.  
  1736.       if(Flags & FLAG_STORMFD)
  1737.       {
  1738.         if(!strcmp(ap.Args[ap.CallArgs-1].ArgName, "tags"))
  1739.         {
  1740.           ap.TagName = ap.FuncName;
  1741.           ap.FuncName = 0;
  1742.           ++tagfuncs;
  1743. #ifdef DEBUG_OLD
  1744.   VPrintf("ScanFDFile: StormFD mode, tag func: %s\n", &ap.TagName);
  1745. #endif
  1746.         }
  1747. #ifdef DEBUG_OLD
  1748.   else
  1749.   {
  1750.     STRPTR a[2];
  1751.     a[0] = ap.FuncName;
  1752.     a[1] = ap.Args[ap.CallArgs-1].ArgName;
  1753.     VPrintf("ScanFDFile: StormFD mode, normal func: %s(..., %s)\n", &a);
  1754.   }
  1755. #endif
  1756.       }
  1757.       else if((_public || (Flags & FLAG_PRIVATE)) && !MakeTagFunction(&ap))
  1758.         return 0;
  1759.       else      /* check the alias names */
  1760.       {
  1761.         ULONG i = 0;
  1762.  
  1763.         while(Pragma_AliasNames[i].FunctionName &&
  1764.         strcmp(ap.FuncName, Pragma_AliasNames[i].FunctionName) &&
  1765.         strcmp(ap.TagName, Pragma_AliasNames[i].FunctionName))
  1766.           ++i;
  1767.  
  1768.         if(Pragma_AliasNames[i].FunctionName)
  1769.           ap.AliasName = (struct Pragma_AliasName *) &Pragma_AliasNames[i];
  1770.       }
  1771.  
  1772.       if(ap.CallArgs != ap.NumArgs)
  1773.         ap.Flags |= AMIPRAGFLAG_ARGCOUNT;
  1774.  
  1775.       if(bias == -1)
  1776.       {
  1777.         DoError(ERR_ASSUMING_BIAS_OF_30, linenum);
  1778.         bias = 30;
  1779.       }
  1780.  
  1781.       if(_public)
  1782.         ap.Flags |= AMIPRAGFLAG_PUBLIC;
  1783.  
  1784.       if((Flags & FLAG_NOFPU) && (ap.Flags & AMIPRAGFLAG_FLOATARG))
  1785.         DoError(ERR_FLOATARG_NOT_ALLOWED, linenum);
  1786.       else if(((ap.Flags & AMIPRAGFLAG_FLOATARG) || !(Flags & FLAG_FPUONLY))
  1787.       && !(Flags & FLAG_PPCONLY))
  1788.       { /* skip all without FPU when FPUONLY and PPC when PPCONLY */
  1789.         struct AmiPragma *d;
  1790.         if(!(d = (struct AmiPragma *) NewItem(&AmiPragma)))
  1791.           return 0;
  1792.         CopyMem(&ap, d, sizeof(struct AmiPragma));
  1793.         AddItem(&AmiPragma, (struct ShortList *) d);
  1794.         if(!SpecialFuncs())
  1795.           return 0;
  1796.       }
  1797.     }
  1798.  
  1799.     in.pos = SkipBlanks(in.pos);
  1800.     if(*in.pos)
  1801.       DoError(ERR_EXTRA_CHARACTERS, linenum);
  1802.     ++in.pos; /* skip '\0' */
  1803.   }
  1804.  
  1805.   if(CTRL_C)
  1806.   {
  1807.     DoError(ERR_USER_ABORT, 0);
  1808.     return 0;
  1809.   }
  1810.  
  1811.   if(bias)
  1812.     DoError(ERR_MISSING_END, 0);
  1813.  
  1814.   return 1;
  1815. }
  1816.  
  1817. LONG ScanTypes(STRPTR ptr, ULONG size)
  1818. {
  1819.   struct CPP_ExternNames *a = 0, *b = 0;
  1820.   STRPTR endptr = ptr+size;
  1821.   LONG line;
  1822.  
  1823.   for(line = 1; ptr < endptr; ++line)
  1824.   {
  1825.     struct CPP_ExternNames *n;
  1826.  
  1827.     if(*ptr == '*') /* skip comments */
  1828.     {
  1829.       while(ptr < endptr && *(ptr++) != '\n')
  1830.         ;
  1831.     }
  1832.     else if((n = (struct CPP_ExternNames *)
  1833.       AllocListMem(sizeof(struct CPP_ExternNames))))
  1834.     {
  1835.       STRPTR wptr;
  1836.  
  1837.       n->Type = ptr; /* store start */
  1838.  
  1839.       wptr = ptr;
  1840.       while(ptr < endptr && *ptr != ':' && *ptr != '\n')
  1841.       {
  1842.         if(*ptr == '\t' || *ptr == ' ')
  1843.         {
  1844.           *(wptr++) = ' ';
  1845.           ptr = SkipBlanks(ptr);
  1846.         }
  1847.         else
  1848.           *(wptr++) = *(ptr++);
  1849.       }
  1850.       if(*(ptr++) != ':')
  1851.         return line;
  1852.       if(*(wptr-1) == ' ')
  1853.         --wptr;
  1854.       *wptr = 0;
  1855.       
  1856.       if(!GetCPPType(&n->NameType, (ptr = SkipBlanks(ptr))))
  1857.         return line;
  1858. #ifdef DEBUG_OLD
  1859.   Printf("'%20s', slen %2ld, typelen %2ld, pntd %ld, type %lc, sn '%.3s'\n",
  1860.   n->Type, n->NameType.StructureLength, n->NameType.FullLength,
  1861.   n->NameType.PointerDepth, n->NameType.Type ? n->NameType.Type : 's',
  1862.   n->NameType.StructureName ? n->NameType.StructureName : "<e>");
  1863. #endif
  1864.       ptr = SkipBlanks(n->NameType.TypeStart+n->NameType.FullLength);
  1865.       if(*(ptr++) != '\n')
  1866.       {
  1867. #ifdef DEBUG_OLD
  1868.   Printf("%.30s\n", ptr);
  1869. #endif
  1870.         return line;
  1871.       }
  1872.  
  1873.       if(!a)
  1874.         b = n;
  1875.       else
  1876.         a->Next = n;
  1877.       a = n;
  1878.     }
  1879.     else
  1880.       return -1;
  1881.   }
  1882.   extnames = b; /* now store the list */
  1883.   return 0;
  1884. }
  1885.  
  1886. void FindHeader(void)
  1887. {
  1888.   STRPTR str = HEADER;
  1889.   ULONG mode = 0;
  1890.  
  1891.   do
  1892.   {
  1893.     if(!mode)
  1894.       HEADER = str;
  1895.  
  1896.     if(*str == '/')
  1897.     {
  1898.       ++str;
  1899.       if(*str == '*')
  1900.       {
  1901.         mode = 2; break;
  1902.       }
  1903.       else if(*str == '/')
  1904.         mode = 1;
  1905.     }
  1906.     else if(*str == '*' || *str == ';')
  1907.       mode = 1;
  1908.     else if(*str == '{'/*}*/)
  1909.     {
  1910.       mode = 3; break;
  1911.     }
  1912.     else if(*str == '('/*)*/ && *(++str) == '*')
  1913.     {
  1914.       mode = 4; break;
  1915.     }
  1916.     else if(mode)
  1917.       break;
  1918.     while(*str && *(str++) != '\n')
  1919.       ;
  1920.   } while(*str);
  1921.  
  1922.   if(mode == 2)
  1923.   {
  1924.     while(*str && (*(str-1) != '*' || *str != '/'))
  1925.       ++str;
  1926.     while(*str && *(str++) != '\n')
  1927.       ;
  1928.   }
  1929.   else if(mode == 3)
  1930.   {
  1931.     while(*str && *str != /*{*/'}')
  1932.       ++str;
  1933.     while(*str && *(str++) != '\n')
  1934.       ;
  1935.   }
  1936.   else if(mode == 4)
  1937.   {
  1938.     while(*str && (*(str-1) != '*' || *str != /*(*/')'))
  1939.       ++str;
  1940.     while(*str && *(str++) != '\n')
  1941.       ;
  1942.   }
  1943.  
  1944.   if(mode)
  1945.     headersize = str-HEADER;
  1946.   else
  1947.   {
  1948.     HEADER = 0; headersize = 0;
  1949.   }
  1950. }
  1951.  
  1952. /* returns decrement data in bits 0-15 and increment data in bits 16-31 */
  1953. ULONG GetRegisterData(struct AmiPragma *ap)
  1954. {
  1955. /* usage of result:
  1956.     48E7 <lower word>    MOVEM.L <registers>,-(A7) ; D0 is bit 15
  1957.     4CDF <upper word>    MOVEM.L (A7)+,<registers> ; D0 is bit 0
  1958. */
  1959.   register ULONG i, data = 0, reg;
  1960.  
  1961.   for(i = 0; i < ap->NumArgs; ++i)
  1962.   {
  1963.     if((reg = ap->Args[i].ArgReg) <= REG_FP0)
  1964.     {
  1965.       if(reg >= 10 || (reg >= 2 &&  reg <= 7)) /* A2-A7 and D2-D7 */
  1966.         data |= (1 << (reg + 16)) + (1 << (15 - reg));
  1967.     }
  1968.   }
  1969.   if(data)      /* set A6 only when other register used */
  1970.     data |= 0x40000002;
  1971.   return data;
  1972. }
  1973.  
  1974. UWORD GetFRegisterData(struct AmiPragma *ap)
  1975. {
  1976. /* usage of result:
  1977.     F227 <upper byte>    FMOVEM.X <registers>,-(A7) ; FP0 is bit 0
  1978.     F21F <lower byte>    FMOVEM.X (A7)+,<registers> ; FP0 is bit 7
  1979. */
  1980.   register ULONG i, reg;
  1981.   register UWORD data = 0;
  1982.  
  1983.   for(i = 0; i < ap->NumArgs; ++i)
  1984.   {
  1985.     if((reg = ap->Args[i].ArgReg) >= REG_FP2)
  1986.     {
  1987.       reg -= REG_FP0;
  1988.       data |= (1 << (reg + 8)) + (1 << (7 - reg));
  1989.     }
  1990.   }
  1991.   return data;
  1992. }
  1993.  
  1994. ASM(static void) SAVEDS xdefputfunc(REG(d0, UBYTE data), REG(a3, STRPTR *a))
  1995. {
  1996. #ifdef __MAXON__
  1997.   GetBaseReg();
  1998. #endif
  1999.   *((*a)++) = data;
  2000. }
  2001.  
  2002. ULONG OutputXDEF(STRPTR format, ...)
  2003. {
  2004.   UBYTE b[150];
  2005.   STRPTR c = b + 4;
  2006.   UWORD i;
  2007.  
  2008.   memset(b, 0, 150);
  2009.   RawDoFmt(format, (APTR) ((ULONG)&format+sizeof(STRPTR)),
  2010.   (void(*)()) xdefputfunc, &c);
  2011.   /* c now holds pointer to end */
  2012.   i = (c-(b+4)+2)>>2;
  2013.   *((ULONG *) b) = 0x01000000 + i;
  2014.  
  2015.   return DoOutputDirect(b, (i+2)<<2);
  2016. }
  2017.  
  2018. ULONG OutputSYMBOL(STRPTR format, ...)
  2019. {
  2020.   UBYTE b[150];
  2021.   STRPTR c = b+4;
  2022.   UWORD i;
  2023.  
  2024.   memset(b, 0, 150);
  2025.   RawDoFmt(format, (APTR) ((ULONG)&format+sizeof(STRPTR)),
  2026.   (void(*)()) xdefputfunc, &c);
  2027.   /* c now holds pointer to end */
  2028.   i = (c-(b+4)+2)>>2;
  2029.   *((ULONG *) b) = i;
  2030.   return DoOutputDirect(b, (i+2)<<2);
  2031. }
  2032.  
  2033. UWORD *AsmStackCopy(UWORD *data, struct AmiPragma *ap, ULONG flags,
  2034. ULONG ofs)
  2035. {
  2036.   ULONG j, k;
  2037.  
  2038.   if(Flags & FLAG_PASCAL)
  2039.   {
  2040.     k = ap->NumArgs;
  2041.  
  2042.     while(k)
  2043.     {
  2044.       if(ap->Args[k-1].ArgReg >= REG_FP0)
  2045.       {
  2046.         struct ClibData *cd; 
  2047.  
  2048.         cd = GetClibFunc(ap->FuncName, ap, flags);
  2049.         *(data++) = 0xF22F;             /* FMOVE.? offs(A7),FPx */
  2050.  
  2051.         if(cd && IsCPPType(&cd->Args[k-1], CPP_TYPE_DOUBLE))
  2052.         {
  2053.           *(data++) = 0x5400 + ((ap->Args[--k].ArgReg-REG_FP0)<<7);
  2054.           *(data++) = ofs<<2;           /* one double needs two longs */
  2055.           ofs += 2;
  2056.         }
  2057.         else
  2058.         {
  2059.           if(!cd || !IsCPPType(&cd->Args[k-1], CPP_TYPE_FLOAT))
  2060.             DoError(ERR_LONG_DOUBLE, ap->Line);
  2061.           *(data++) = 0x4400 + ((ap->Args[--k].ArgReg-REG_FP0)<<7);
  2062.           *(data++) = (ofs++) << 2;
  2063.         }
  2064.       }
  2065.       else if((k >= 2) && (ap->Args[k-1].ArgReg < ap->Args[k-2].ArgReg)
  2066.       && ap->Args[k-2].ArgReg < REG_FP0 && !(Flags & FLAG_NOMOVEM))
  2067.       {
  2068.         *(data++) = 0x4CEF;             /* MOVEM.L offs(A7),xxx */
  2069.         *(data++) = 0;
  2070.         *(data++) = ofs << 2;           /* store start offset */
  2071.         do
  2072.         {
  2073.           j = ap->Args[--k].ArgReg;
  2074.  
  2075.           ++ofs;
  2076.           *(data-2) |= 1 << j;
  2077.         } while(k && j < ap->Args[k-1].ArgReg &&
  2078.           ap->Args[k-1].ArgReg < REG_FP0);
  2079.       }
  2080.       else
  2081.       {
  2082.         *data = 0x202F;                 /* MOVE.L offs(A7),xxx */
  2083.  
  2084.         if((j = ap->Args[--k].ArgReg) > 7)
  2085.         {
  2086.           *data |= (1<<6); j -= 8;      /* set MOVEA bit */
  2087.         }
  2088.         *(data++) |= j << 9;            /* set destination register */
  2089.         *(data++) = (ofs++) << 2;
  2090.       }
  2091.     }
  2092.   }
  2093.   else
  2094.   {
  2095.     ULONG i = 0;
  2096.  
  2097.     k = ap->NumArgs - ((flags & FUNCFLAG_TAG) ? 1 : 0);
  2098.  
  2099.     while(i < k)
  2100.     {
  2101.       if(ap->Args[i].ArgReg >= REG_FP0)
  2102.       {
  2103.         struct ClibData *cd; 
  2104.  
  2105.         cd = GetClibFunc(ap->FuncName, ap, flags);
  2106.         *(data++) = 0xF22F;             /* FMOVE.? offs(A7),FPx */
  2107.  
  2108.         if(cd && IsCPPType(&cd->Args[i], CPP_TYPE_DOUBLE))
  2109.         {
  2110.           *(data++) = 0x5400 + ((ap->Args[i++].ArgReg-REG_FP0)<<7);
  2111.           *(data++) = ofs<<2; /* one double needs two longs */
  2112.           ofs += 2;
  2113.         }
  2114.         else
  2115.         {
  2116.           if(!cd || !IsCPPType(&cd->Args[i], CPP_TYPE_FLOAT))
  2117.             DoError(ERR_LONG_DOUBLE, ap->Line);
  2118.           *(data++) = 0x4400 + ((ap->Args[i++].ArgReg-REG_FP0)<<7);
  2119.           *(data++) = (ofs++) << 2;
  2120.         }
  2121.       }
  2122.       else if(((k - i) >= 2) && (ap->Args[i].ArgReg < ap->Args[i+1].ArgReg)
  2123.       && ap->Args[i+1].ArgReg < REG_FP0 && !(Flags & FLAG_NOMOVEM))
  2124.       {
  2125.         *(data++) = 0x4CEF;             /* MOVEM.L offs(A7),xxx */
  2126.         *(data++) = 0;                  /* Store MOVEM.L data later */
  2127.         *(data++) = ofs << 2;           /* store start offset */
  2128.         do
  2129.         {
  2130.           j = ap->Args[i++].ArgReg;
  2131.  
  2132.           ++ofs;
  2133.           *(data-2) |= 1 << j;
  2134.         } while(i < k && j < ap->Args[i].ArgReg &&
  2135.         ap->Args[i].ArgReg < REG_FP0);
  2136.       }
  2137.       else
  2138.       {
  2139.         *data = 0x202F;                 /* MOVE.L offs(A7),xxx */
  2140.  
  2141.         if((j = ap->Args[i++].ArgReg) > 7)
  2142.         {
  2143.           *data |= (1<<6); j -= 8;      /* set MOVEA bit */
  2144.         }
  2145.         *(data++) |= j << 9;            /* set destination register */
  2146.         *(data++) = (ofs++) << 2;
  2147.       }
  2148.     }
  2149.  
  2150.     if(i < ap->NumArgs)
  2151.     {
  2152.       if((j = ap->Args[i].ArgReg) > 7)
  2153.       {
  2154.         *(data++) = 0x41EF | ((j-8) << 9);         /* LEA xxx(A7),Ax */
  2155.         *(data++) = ofs << 2;
  2156.       }
  2157.       else if(ofs == 2)
  2158.       {
  2159.         *(data++) = 0x200F | (j << 9);          /* MOVE.L A7,Dx */
  2160.         *(data++) = 0x5080 | j;                 /* ADDQ.L #8,Dx */
  2161.       }
  2162.       else
  2163.       {
  2164.         *(data++) = 0x486F;            /* PEA xxx(A7) */
  2165.         *(data++) = ofs << 2;
  2166.         *(data++) = 0x201F | j << 9;            /* MOVE.L offs(A7),Dx */
  2167.       }
  2168.     }
  2169.   }
  2170.  
  2171.   return data;
  2172. }
  2173. /* ------------------------------------------------------------------ */
  2174.  
  2175. void DoError(UBYTE errnum, ULONG line, ...)
  2176. {
  2177.   if(Flags & FLAG_DIDERROR)
  2178.     return;
  2179.  
  2180.   if(!Errors[errnum].Type)
  2181.     Flags |= FLAG_DIDERROR;
  2182.  
  2183.   Printf((line ? "%s %ld in line %ld%s: " : "%s %ld : "), (ULONG)
  2184.   (Errors[errnum].Type ? "Warning" : "Error"), errnum, line,
  2185.   errnum == ERR_UNKNOWN_VARIABLE_TYPE ? " of clib file" : "");
  2186.   VPrintf(Errors[errnum].Error, (((STRPTR) &line) + sizeof(ULONG)));
  2187.   PutStr("\n");
  2188.   if(line && Errors[errnum].Skip)
  2189.   {
  2190.     while(*in.pos)
  2191.       ++in.pos;
  2192.   }
  2193. }
  2194.  
  2195. ULONG CheckError(struct AmiPragma *ap, ULONG errflags)
  2196. {
  2197.   errflags &= ap->Flags;
  2198.  
  2199.   if(errflags & AMIPRAGFLAG_ARGCOUNT)
  2200.   {
  2201.     if(!(ap->Flags & AMIPRAGFLAG_DIDARGWARN))
  2202.     {
  2203.       DoError(ERR_ARGUMENTNUMBER_DIFFERS_FROM_REGISTERNUMBER, ap->Line);
  2204.       ap->Flags |= AMIPRAGFLAG_DIDARGWARN;
  2205.     }
  2206.     return 1;
  2207.   }
  2208.   else if(errflags & AMIPRAGFLAG_FLOATARG)
  2209.   {
  2210.     if(!(ap->Flags & AMIPRAGFLAG_DIDFLOATWARN))
  2211.     {
  2212.       DoError(ERR_FLOATARG_NOT_ALLOWED, ap->Line);
  2213.       ap->Flags |= AMIPRAGFLAG_DIDFLOATWARN;
  2214.     }
  2215.     return 1;
  2216.   }
  2217.   else if(errflags & AMIPRAGFLAG_A6USE)
  2218.   {
  2219.     DoError(ERR_A6_NOT_ALLOWED, ap->Line);
  2220.     return 1;
  2221.   }
  2222.   else if(errflags & AMIPRAGFLAG_A5USE)
  2223.   {
  2224.     DoError(ERR_A5_NOT_ALLOWED, ap->Line);
  2225.     return 1;
  2226.   }
  2227.   else if(errflags & AMIPRAGFLAG_PPC)
  2228.   {
  2229.     if(!(ap->Flags & AMIPRAGFLAG_DIDPPCWARN))
  2230.     {
  2231.       DoError(ERR_PPC_FUNCTION_NOT_SUPPORTED, ap->Line);
  2232.       ap->Flags |= AMIPRAGFLAG_DIDPPCWARN;
  2233.     }
  2234.     return 1;
  2235.   }
  2236.  
  2237.   return 0;
  2238. }
  2239.  
  2240. ULONG Out(ULONG size)
  2241. {
  2242.   ULONG i = out.pos-out.buf;
  2243.  
  2244.   if(i && out.size - i <= size)
  2245.   {
  2246.     if(Write(out.file, out.buf, i) != i)
  2247.     {
  2248.       Output_Error = 0;
  2249.       return 0;
  2250.     }
  2251.     out.pos = out.buf;
  2252.   }
  2253.   return out.size;
  2254. }
  2255.  
  2256. ASM(static void) SAVEDS putfunc(REG(d0, UBYTE data), REG(a3, LONG *a))
  2257. {
  2258. #ifdef __MAXON__
  2259.   GetBaseReg();
  2260. #endif
  2261.  
  2262.   if(data)
  2263.   {
  2264.     if(!*a)
  2265.       *a = Out(1);
  2266.     if((*a)-- > 0)
  2267.       *(out.pos++) = data;
  2268.   }
  2269. }
  2270.  
  2271. ULONG DoOutput(STRPTR format, ...)
  2272. {
  2273.   LONG a = out.buf+out.size-out.pos;
  2274.  
  2275.   if(!Output_Error)
  2276.     return 0;
  2277.  
  2278.   RawDoFmt(format, (APTR) ((ULONG)&format+sizeof(STRPTR)),
  2279.   (void(*)()) putfunc, &a);
  2280.  
  2281.   if(a < 0)
  2282.     return 0;
  2283.   return 1;
  2284. }
  2285.  
  2286. ULONG DoOutputDirect(APTR data, ULONG size)
  2287. {
  2288.   if(!Output_Error || !Out(size))
  2289.     return 0;
  2290.   CopyMem(data, out.pos, size);
  2291.   out.pos += size;
  2292.   return 1;
  2293. }
  2294.  
  2295. /* ------------------------------------------------------------------ */
  2296.  
  2297. struct ShortList *NewItem(struct ShortListRoot *list)
  2298. {
  2299.   struct ShortList *item;
  2300.   if(!list || !list->Size)
  2301.     return 0;
  2302.   if(!(item = (struct ShortList *) AllocListMem(list->Size)))
  2303.     return 0;
  2304.   return item;
  2305. }
  2306.  
  2307. struct ShortList *RemoveItem(struct ShortListRoot *list,
  2308. struct ShortList *item)
  2309. {
  2310.   struct ShortList *n = list->First;
  2311.  
  2312.   if(n == item)
  2313.     list->First = item->Next;
  2314.   else
  2315.   {
  2316.     while(n && n->Next != item)
  2317.       n = n->Next;
  2318.     if(!n)
  2319.       return 0;
  2320.     if(!(n->Next = item->Next))
  2321.       list->Last = n;
  2322.   }
  2323.   item->Next = 0;
  2324.   return item;
  2325. }
  2326.  
  2327. void AddItem(struct ShortListRoot *list, struct ShortList *item)
  2328. {
  2329.   if(!list->First)
  2330.     list->First = list->Last = item;
  2331.   else
  2332.   {
  2333.     list->Last->Next = item;
  2334.     list->Last = item;
  2335.   }
  2336. }
  2337.  
  2338. /* ------------------------------------------------------------------ */
  2339.  
  2340. ULONG FuncAMICALL(struct AmiPragma *ap, ULONG flags, STRPTR name)
  2341. {
  2342.   ULONG i;
  2343.  
  2344.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_PPC))
  2345.     return 1;
  2346.  
  2347.   Flags |= FLAG_DONE; /* We did something */
  2348.  
  2349.   DoOutput("#pragma %s(%s,0x%03lx,%s("/*))*/, flags & FUNCFLAG_TAG ?
  2350.   "tagcall" : "amicall", BaseName, ap->Bias, name);
  2351.  
  2352.   for(i = 0; i < ap->NumArgs; ++i)
  2353.   {
  2354.     DoOutput(RegNames[ap->Args[i].ArgReg]);
  2355.     if(i+1 < ap->NumArgs)
  2356.       DoOutput(",");
  2357.   }
  2358.  
  2359.   return DoOutput(/*((*/"))\n");
  2360. }
  2361.  
  2362. ULONG FuncLIBCALL(struct AmiPragma *ap, ULONG flags, STRPTR name)
  2363. {
  2364.   LONG i;
  2365.  
  2366.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_PPC))
  2367.     return 1;
  2368.  
  2369.   Flags |= FLAG_DONE; /* We did something */
  2370.  
  2371.   if(ap->Flags & AMIPRAGFLAG_FLOATARG)
  2372.   {
  2373.     DoOutput("#pragma flibcall %s %-20s %03lx ", BaseName, name, ap->Bias);
  2374.     for(i = ap->NumArgs-1; i >= 0; --i)
  2375.       DoOutput("%02lx", ap->Args[i].ArgReg);
  2376.  
  2377.     return DoOutput("00%02lx\n", ap->NumArgs);
  2378.   }
  2379.  
  2380.   if((Flags & FLAG_SYSCALL) && !strcmp(BaseName,"SysBase") &&
  2381.   (flags & FUNCFLAG_NORMAL))
  2382.     DoOutput("#pragma  syscall %-20s %03lx ", name, ap->Bias);
  2383.   else
  2384.     DoOutput("#pragma  %s %s %-20s %03lx ", (flags & FUNCFLAG_TAG) ?
  2385.     "tagcall" : "libcall", BaseName, name, ap->Bias);
  2386.  
  2387.   for(i = ap->NumArgs-1; i >= 0; --i)
  2388.     DoOutput("%lx", ap->Args[i].ArgReg);
  2389.  
  2390.   return DoOutput("0%lx\n", ap->NumArgs);
  2391. }
  2392.  
  2393. ULONG FuncAsmText(struct AmiPragma *ap, ULONG flags, STRPTR name)
  2394. {
  2395.   LONG i;
  2396.   ULONG registers;
  2397.   UWORD fregs;
  2398.   ULONG offset = 1;
  2399.   STRPTR c1, c2;
  2400.   struct ClibData *cd;
  2401.  
  2402.   if(CheckError(ap, AMIPRAGFLAG_PPC))
  2403.     return 1;
  2404.  
  2405.   Flags |= FLAG_DONE; /* We did something */
  2406.  
  2407.   c1 = Flags & FLAG_NEWSYNTAX ? "(" : ""; /*)*/
  2408.   c2 = Flags & FLAG_NEWSYNTAX ? "," : "("; /*)*/
  2409.  
  2410.   if(Flags & FLAG_ASMSECTION)
  2411.   {
  2412.     DoOutput("\n\tSECTION\t\"%s\",CODE\n\tXREF\t_%s\n", name, BaseName);
  2413.   }
  2414.  
  2415.   DoOutput("\n\tXDEF\t_%s\n_%s:\n",name, name);
  2416.   if(!(Flags & FLAG_PASCAL))
  2417.   {
  2418.     DoOutput("\tXDEF\t%s\n%s:\n",name, name);
  2419.     if(clibdata)
  2420.     {
  2421.       if(!ap->NumArgs)
  2422.         DoOutput("\tXDEF\t%s_\n%s_:\n",name, name);
  2423.       else if((cd = GetClibFunc(name, ap, flags)))
  2424.       {
  2425.         UBYTE txt[300];
  2426.         ULONG ret = 0;
  2427.  
  2428.         do
  2429.         {
  2430.           if((ret = CopyCPPType(txt, ret, cd, ap->Args)))
  2431.             DoOutput("\tXDEF\t%s__%s\n%s__%s:\n", name, txt, name, txt);
  2432.         } while(ret == 0xFFFFFFFF);
  2433.       }
  2434.     }
  2435.   }
  2436.  
  2437.   if((registers = GetRegisterData(ap) >> 16))
  2438.   {
  2439.     if(Flags & FLAG_NOMOVEM)
  2440.     {
  2441.       for(i = 0; i <= 15; ++i)
  2442.       {
  2443.         if(registers & (1 << i))
  2444.         {
  2445.           ++offset;
  2446.           DoOutput("\tMOVE.L\t%s,-(A7)\n", RegNamesUpper[i]);
  2447.         }
  2448.       }
  2449.     }
  2450.     else
  2451.     {
  2452.       UWORD l = registers;
  2453.  
  2454.       DoOutput("\tMOVEM.L\t");
  2455.  
  2456.       for(i = 0; i <= 15; ++i)
  2457.       {
  2458.         if(l & (1 << i))
  2459.         {
  2460.           ++offset;
  2461.           l ^= 1 << i;
  2462.           DoOutput(RegNamesUpper[i]);
  2463.           if(l)
  2464.             DoOutput("/");
  2465.         }
  2466.       }
  2467.       DoOutput(",-(A7)\n");
  2468.     }
  2469.   }
  2470.   else
  2471.   {
  2472.     DoOutput("\tMOVE.L\tA6,-(A7)\n"); ++offset;
  2473.   }
  2474.  
  2475.   if((fregs = GetFRegisterData(ap) >> 8))
  2476.   {
  2477.     UBYTE l = fregs;
  2478.  
  2479.     DoOutput("\tFMOVEM.X\t");
  2480.  
  2481.     for(i = 0; i <= 7; ++i)
  2482.     {
  2483.       if(l & (1 << i))
  2484.       {
  2485.         offset += 3;
  2486.         l ^= 1 << i;
  2487.         DoOutput(RegNamesUpper[REG_FP0 + i]);
  2488.         if(l)
  2489.           DoOutput("/");
  2490.       }
  2491.     }
  2492.     DoOutput(",-(A7)\n");
  2493.   }
  2494.  
  2495.   if(Flags & FLAG_SMALLDATA)
  2496.   {
  2497.     DoOutput(/*(*/"\tMOVEA.L\t%s_%s%sA4),A6\n", c1, BaseName, c2);
  2498.   }
  2499.   else
  2500.     DoOutput("\tMOVEA.L\t_%s,A6\n", BaseName);
  2501.  
  2502.   if(!(Flags & FLAG_PASCAL))
  2503.   {
  2504.     ULONG k;
  2505.  
  2506.     k = ap->NumArgs - ((flags & FUNCFLAG_TAG) ? 1 : 0);
  2507.  
  2508.     for(i = 0; i < k;)
  2509.     {
  2510.       if(ap->Args[i].ArgReg >= REG_FP0)
  2511.       {
  2512.         ULONG t;
  2513.         struct ClibData *cd;
  2514.  
  2515.         cd = GetClibFunc(name, ap, flags);
  2516.         if(cd && IsCPPType(&cd->Args[i], CPP_TYPE_DOUBLE))
  2517.           t = CPP_TYPE_DOUBLE;
  2518.         else if(cd && IsCPPType(&cd->Args[i], CPP_TYPE_FLOAT))
  2519.           t = CPP_TYPE_FLOAT;
  2520.         else
  2521.         {
  2522.           DoError(ERR_LONG_DOUBLE, ap->Line);
  2523.           t = CPP_TYPE_FLOAT;
  2524.         }
  2525.  
  2526.         DoOutput(/*(*/"\tFMOVE.%lc\t%s%02ld%sA7),%s\n", t == CPP_TYPE_DOUBLE ? 'D' : 'S', c1,
  2527.         offset<<2, c2, RegNamesUpper[ap->Args[i++].ArgReg]);
  2528.  
  2529.         if(t == CPP_TYPE_DOUBLE)
  2530.           ++offset;
  2531.         ++offset;
  2532.       }
  2533.       else if(((k - i) >= 2) && (ap->Args[i].ArgReg < ap->Args[i+1].ArgReg) &&
  2534.       ap->Args[i+1].ArgReg < REG_FP0 && !(Flags & FLAG_NOMOVEM))
  2535.       {
  2536.         DoOutput(/*(*/"\tMOVEM.L\t%s%02ld%sA7),%s", c1, (offset++)<<2, c2,
  2537.         RegNamesUpper[ap->Args[i++].ArgReg]);
  2538.  
  2539.         do
  2540.         {
  2541.           DoOutput("/%s", RegNamesUpper[ap->Args[i++].ArgReg]);
  2542.           ++offset;
  2543.         } while((i < k) && (ap->Args[i-1].ArgReg < ap->Args[i].ArgReg) &&
  2544.         ap->Args[i].ArgReg < REG_FP0);
  2545.         DoOutput("\n");
  2546.       }
  2547.       else
  2548.       {
  2549.         DoOutput(/*(*/"\tMOVE%s.L\t%s%02ld%sA7),%s\n",
  2550.         ap->Args[i].ArgReg >= REG_A0 ? "A" : "", c1, (offset++)<<2, c2,
  2551.         RegNamesUpper[ap->Args[i].ArgReg]);
  2552.         ++i;
  2553.       }
  2554.     }
  2555.  
  2556.     if(i < ap->NumArgs)
  2557.     {
  2558.       if(ap->Args[i].ArgReg > 7)
  2559.         DoOutput(/*(*/"\tLEA\t%s%02ld%sA7),%s\n", c1, offset<<2, c2,
  2560.         RegNamesUpper[ap->Args[i].ArgReg]);
  2561.       else if(offset <= 2)
  2562.         DoOutput("\tMOVE.L\tA7,%s\n\tADDQ.L\t#%02ld,%s\n",
  2563.         RegNamesUpper[ap->Args[i].ArgReg],offset<<2,
  2564.         RegNamesUpper[ap->Args[i].ArgReg]);
  2565.       else
  2566.         DoOutput(/*(*/"\tPEA\t%s%ld%sA7)\n\tMOVE.L\t(A7)+,%s\n",c1,
  2567.         offset<<2, c2,RegNamesUpper[ap->Args[i].ArgReg]);
  2568.     }
  2569.   }
  2570.   else
  2571.   {
  2572.     i = ap->NumArgs;
  2573.  
  2574.     while(i)
  2575.     {
  2576.       if(ap->Args[i-1].ArgReg >= REG_FP0)
  2577.       {
  2578.         ULONG t;
  2579.         struct ClibData *cd;
  2580.  
  2581.         cd = GetClibFunc(name, ap, flags);
  2582.  
  2583.         if(cd && IsCPPType(&cd->Args[i-1], CPP_TYPE_DOUBLE))
  2584.           t = CPP_TYPE_DOUBLE;
  2585.         else if(cd && IsCPPType(&cd->Args[i-1], CPP_TYPE_FLOAT))
  2586.           t = CPP_TYPE_FLOAT;
  2587.         else
  2588.         {
  2589.           DoError(ERR_LONG_DOUBLE, ap->Line);
  2590.           t = CPP_TYPE_FLOAT;
  2591.         }
  2592.  
  2593.         DoOutput(/*(*/"\tFMOVE.%lc\t%s%02ld%sA7),%s\n", t == CPP_TYPE_DOUBLE ? 'D' : 'S',
  2594.         c1, offset<<2, c2, RegNamesUpper[ap->Args[--i].ArgReg]);
  2595.         if(t == CPP_TYPE_DOUBLE)
  2596.           ++offset;
  2597.         ++offset;
  2598.       }
  2599.       else if((i >= 2) && (ap->Args[i-1].ArgReg < ap->Args[i-2].ArgReg) &&
  2600.       ap->Args[i-2].ArgReg < REG_FP0 && !(Flags & FLAG_NOMOVEM))
  2601.       {
  2602.         DoOutput(/*(*/"\tMOVEM.L\t%s%02ld%sA7),%s", c1, (offset++)<<2, c2,
  2603.         RegNamesUpper[ap->Args[--i].ArgReg]);
  2604.  
  2605.         do
  2606.         {
  2607.           DoOutput("/%s", RegNamesUpper[ap->Args[--i].ArgReg]);
  2608.           ++offset;
  2609.         } while(i && (ap->Args[i].ArgReg < ap->Args[i-1].ArgReg) &&
  2610.         ap->Args[i-1].ArgReg < REG_FP0);
  2611.         DoOutput("\n");
  2612.       }
  2613.       else
  2614.       {
  2615.         --i;
  2616.         DoOutput(/*(*/"\tMOVE%s.L\t%s%02ld%sA7),%s\n",
  2617.         ap->Args[i].ArgReg >= REG_A0 ? "A" : "", c1, (offset++)<<2, c2,
  2618.         RegNamesUpper[ap->Args[i].ArgReg]);
  2619.       }
  2620.     }
  2621.   }
  2622.  
  2623.   DoOutput(/*(*/"\tJSR\t%s-%03ld%sA6)\n", c1, ap->Bias, c2);
  2624.  
  2625.   if(fregs)
  2626.   {
  2627.     DoOutput("\tFMOVEM.X\t(A7)+,");
  2628.  
  2629.     for(i = 0; i <= 7; ++i)
  2630.     {
  2631.       if(fregs & (1 << i))
  2632.       {
  2633.         fregs ^= 1 << i;
  2634.         DoOutput(RegNamesUpper[REG_FP0 + i]);
  2635.         if(fregs)
  2636.           DoOutput("/");
  2637.       }
  2638.     }
  2639.     DoOutput("\n");
  2640.   }
  2641.  
  2642.   if(registers)
  2643.   {
  2644.     if(Flags & FLAG_NOMOVEM)
  2645.     {
  2646.       for(i = 15; i >= 0; --i)
  2647.       {
  2648.         if(registers & (1 << i))
  2649.           DoOutput("\tMOVE%s.L\t(A7)+,%s\n", i >= REG_A0 ? "A" : "", RegNamesUpper[i]);
  2650.       }
  2651.     }
  2652.     else
  2653.     {
  2654.       DoOutput("\tMOVEM.L\t(A7)+,");
  2655.  
  2656.       for(i = 0; i <= 15; ++i)
  2657.       {
  2658.         if(registers & (1 << i))
  2659.         {
  2660.           registers ^= 1 << i;
  2661.           DoOutput(RegNamesUpper[i]);
  2662.           if(registers)
  2663.             DoOutput("/");
  2664.         }
  2665.       }
  2666.       DoOutput("\n");
  2667.     }
  2668.   }
  2669.   else
  2670.     DoOutput("\tMOVEA.L\t(A7)+,A6\n");
  2671.  
  2672.   return DoOutput("\tRTS\n");
  2673. }
  2674.  
  2675. ULONG FuncAsmCode(struct AmiPragma *ap, ULONG flags, STRPTR name)
  2676. {
  2677.   ULONG registers, a[5], offset = 1, pos = 4, baseref;
  2678.   LONG i = strlen(ShortBaseNameUpper);
  2679.   UWORD *data;
  2680.   UWORD fregs;
  2681.  
  2682.   data = (UWORD *) tempbuf;
  2683.  
  2684.   if(CheckError(ap, AMIPRAGFLAG_PPC))
  2685.     return 1;
  2686.  
  2687.   Flags |= FLAG_DONE; /* We did something */
  2688.  
  2689.   registers = GetRegisterData(ap);
  2690.  
  2691.   fregs = GetFRegisterData(ap);
  2692.  
  2693.   a[0] = HUNK_UNIT; a[1] = 0; a[2] = HUNK_NAME;
  2694.   a[3] = (i + 6 + 3)>>2;
  2695.  
  2696.   DoOutputDirect(a, 16);
  2697.   DoOutputDirect(ShortBaseNameUpper, i);
  2698.   DoOutputDirect("_STUBS\0\0\0", (a[3]<<2)-i);
  2699.  
  2700.   data[0] = 0;
  2701.   data[1] = HUNK_CODE;
  2702.   data[2] = 0;
  2703.   /* data[3] is size */
  2704.  
  2705.   if(!registers)
  2706.   {
  2707.     data[pos++] = 0x2F0E;               /* MOVE.L A6,-(A7) */
  2708.     ++offset;                           /* one long more on stack */
  2709.   }
  2710.   else
  2711.   {
  2712.     if(Flags & FLAG_NOMOVEM)
  2713.     {
  2714.       for(i = 0; i <= 15; ++i)
  2715.       {
  2716.         if(registers & (1<< (16+i)))
  2717.         {
  2718.           data[pos++] = 0x2F00 + i;     /* MOVE.L xxx,-(A7) */
  2719.           ++offset;
  2720.         }
  2721.       }
  2722.     }
  2723.     else
  2724.     {
  2725.       ULONG l;
  2726.       data[pos++] = 0x48E7;             /* MOVEM.L xxx,-(A7) */
  2727.       data[pos++] = registers;          /* store MOVEM.L registers */
  2728.       for(l = (UWORD) registers; l; l >>= 1)
  2729.       {
  2730.         if(l & 1)
  2731.           ++offset;                     /* get offset addition */
  2732.       }
  2733.     }
  2734.   }
  2735.  
  2736.   if(fregs)
  2737.   {
  2738.     ULONG l;
  2739.     data[pos++] = 0xF227;               /* FMOVEM.X xxx,-(A7) */
  2740.     data[pos++] = 0xE000 + ((fregs>>8)&0xFF);
  2741.     for(l = (UBYTE) fregs; l; l >>= 1)
  2742.     {
  2743.       if(l & 1)
  2744.         offset+=3;                      /* get offset addition */
  2745.     }
  2746.   }
  2747.  
  2748.   baseref = pos+1-4;                    /* one word later (MOVE) - 2 header longs */
  2749.   if(Flags & FLAG_SMALLDATA)
  2750.   {
  2751.     data[pos++] = 0x2C6C;               /* MOVEA.L base(A4),A6 */
  2752.     data[pos++] = 0;                    /* place for base reference */
  2753.   }
  2754.   else
  2755.   {
  2756.     data[pos++] = 0x2C79;               /* MOVEA.L base,A6 */
  2757.     data[pos++] = 0;                    /* place for base reference */
  2758.     data[pos++] = 0;
  2759.   }
  2760.  
  2761.   pos = AsmStackCopy(data+pos, ap, flags, offset) - data;
  2762.  
  2763.   /* here comes the base reference */
  2764.   data[pos++] = 0x4EAE;                 /* JSR xxx(A6) */
  2765.   data[pos++] = -ap->Bias;              /* JSR offset */
  2766.  
  2767.   if(fregs)
  2768.   {
  2769.     data[pos++] = 0xF21F;               /* FMOVEM.X (A7)+,xxx */
  2770.     data[pos++] = 0xD000 + (fregs&0xFF);
  2771.   }
  2772.  
  2773.   if(registers)
  2774.   {
  2775.     if(Flags & FLAG_NOMOVEM)
  2776.     {
  2777.       for(i = 15; i >= 0; --i)
  2778.       {
  2779.         if(registers & (1<<(16+i)))     /* MOVE.L (A7)+,xxx */
  2780.           data[pos++] = 0x201F + ((i&7)<<9) + ((i>>3)<<6);
  2781.       }
  2782.     }
  2783.     else
  2784.     {
  2785.       data[pos++] = 0x4CDF;             /* MOVEM.L (A7)+,xxx */
  2786.       data[pos++] = (registers >> 16);  /* store MOVEM.L registers */
  2787.     }
  2788.   }
  2789.   else
  2790.     data[pos++] = 0x2C5F;               /* MOVE.L (A7)+,A6 */
  2791.   data[pos++] = 0x4E75;                 /* RTS */
  2792.  
  2793.   if(pos & 1)
  2794.     data[pos++] = 0;                    /* round to long */
  2795.  
  2796.   data[3] = (pos-4)>>1;                 /* store hunk len */
  2797.   DoOutputDirect(data, pos<<1);
  2798.  
  2799.   a[0] = HUNK_EXT;
  2800.   a[1] = ((Flags & FLAG_SMALLDATA ? EXT_REF16 : EXT_REF32) << 24) +
  2801.          ((strlen(BaseName) + 1 + 3)>>2);
  2802.   a[2] = ('_' << 24);
  2803.  
  2804.   DoOutputDirect(a, 9);
  2805.   DoOutputDirect(BaseName, (((UWORD) a[1])<<2)-1);
  2806.  
  2807.   a[0] = 1; a[1] = baseref << 1;
  2808.   DoOutputDirect(a, 8);
  2809.  
  2810.   /* here come the XDEF name references */
  2811.   OutputXDEF("_%s", name);              /* C name */
  2812.  
  2813.   if(!(Flags & FLAG_PASCAL))
  2814.   {
  2815.     struct ClibData *cd;
  2816.     OutputXDEF("%s", name);             /* ASM name */
  2817.  
  2818.     if(clibdata)
  2819.     {
  2820.       if(!ap->NumArgs)
  2821.         OutputXDEF("%s_", name);        /* C++ name no parameters */
  2822.       else if((cd = GetClibFunc(name, ap, flags)))
  2823.       {
  2824.         ULONG ret = 0;
  2825.  
  2826.         do                              /* C++ name with parameters */
  2827.         {
  2828.           if((ret = CopyCPPType((STRPTR) data, ret, cd, ap->Args)))
  2829.             OutputXDEF("%s__%s", name, (STRPTR) data);
  2830.         } while(ret == 0xFFFFFFFF);
  2831.       }
  2832.     }
  2833.   }
  2834.  
  2835.   a[0] = 0;
  2836.   DoOutputDirect(a, 4);
  2837.   if(!(Flags & FLAG_NOSYMBOL))
  2838.   {
  2839.     a[0] = HUNK_SYMBOL;
  2840.     DoOutputDirect(a, 4);
  2841.     OutputSYMBOL("_%s", name);              /* C name */
  2842.  
  2843.     if(!(Flags & FLAG_PASCAL))
  2844.     {
  2845.       struct ClibData *cd;
  2846.       OutputSYMBOL("%s", name);             /* ASM name */
  2847.  
  2848.       if(clibdata)
  2849.       {
  2850.         if(!ap->NumArgs)
  2851.           OutputSYMBOL("%s_", name);        /* C++ name no parameters */
  2852.         else if((cd = GetClibFunc(name, ap, flags)))
  2853.         {
  2854.           ULONG ret = 0;
  2855.  
  2856.           do                              /* C++ name with parameters */
  2857.           {
  2858.             if((ret = CopyCPPType((STRPTR) data, ret, cd, ap->Args)))
  2859.               OutputSYMBOL("%s__%s", name, (STRPTR) data);
  2860.           } while(ret == 0xFFFFFFFF);
  2861.         }
  2862.       }
  2863.     }
  2864.  
  2865.     a[0] = 0;
  2866.     DoOutputDirect(a, 4);
  2867.   }
  2868.  
  2869.   a[0] = HUNK_END;
  2870.  
  2871.   return DoOutputDirect(a, 4);
  2872. }
  2873.  
  2874. /* Directly called by FuncInline also! */
  2875. ULONG FuncCSTUBS(struct AmiPragma *ap, ULONG flags, STRPTR name)
  2876. {
  2877.   struct ClibData *f, *t;
  2878.   STRPTR ret = "return ";
  2879.   ULONG i;
  2880.  
  2881.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_PPC))
  2882.     return 1;
  2883.  
  2884.   Flags |= FLAG_DONE; /* We did something */
  2885.  
  2886.   if(!(f = GetClibFunc(ap->FuncName, ap, 0)))
  2887.     return 1;
  2888.   t = GetClibFunc(name, ap, flags);
  2889.  
  2890.   if(IsCPPType(&f->ReturnType, CPP_TYPE_VOID))
  2891.     ret = 0;
  2892.  
  2893.   if(!OutClibType(&f->ReturnType, name) || !DoOutput("("/*)*/))
  2894.     return 0;
  2895.   for(i = 0; i < ap->NumArgs-1; i++)
  2896.   {
  2897.     if(!OutClibType(&f->Args[i], ap->Args[i].ArgName) || !DoOutput(", "))
  2898.       return 0;
  2899.   }
  2900.   if(t && t->Args[i].Type != CPP_TYPE_VARARGS)
  2901.   {
  2902.     if(!OutClibType(&t->Args[i], ap->Args[i].ArgName) || !DoOutput(", "))
  2903.       return 0;
  2904.   }
  2905.   else if(ap->NumArgs == 1 && !DoOutput("ULONG tag, "))
  2906.     return 0;
  2907.  
  2908.   if(!DoOutput(/*(*/"...)\n{\n  %s%s("/*)*/, ret, ap->FuncName))
  2909.     return 0;
  2910.   for(i = 0; i < ap->NumArgs-1; i++)
  2911.   {
  2912.     if(!DoOutput("%s, ", ap->Args[i].ArgName))
  2913.       return 0;
  2914.   }
  2915.   if(!DoOutput("("/*)*/) || !OutClibType(&f->Args[ap->NumArgs-1],0))
  2916.     return 0;
  2917.  
  2918.   if(t && t->Args[i].Type != CPP_TYPE_VARARGS)
  2919.   {
  2920.     if(!DoOutput(/*((*/") &%s);\n}\n\n", ap->Args[ap->NumArgs-1].ArgName))
  2921.       return 0;
  2922.   }
  2923.   else if(ap->NumArgs == 1)
  2924.   {
  2925.     if(!DoOutput(/*((*/") &tag);\n}\n\n"))
  2926.       return 0;
  2927.   }
  2928.   else if (!DoOutput(/*(*/") ((ULONG) &%s + sizeof("/*))*/,
  2929.   ap->Args[ap->NumArgs-2].ArgName) || !OutClibType(&f->Args[ap->NumArgs-2],0)
  2930.   || !DoOutput(/*(((*/")));\n}\n\n"))
  2931.     return 0;
  2932.   return 1;
  2933. }
  2934.  
  2935. ULONG FuncLVOXDEF(struct AmiPragma *ap, ULONG flags, STRPTR name)
  2936. {
  2937.   Flags |= FLAG_DONE; /* We did something */
  2938.   return DoOutput("\t\tXDEF\t_LVO%s\n", name);
  2939. }
  2940.  
  2941. ULONG FuncLVO(struct AmiPragma *ap, ULONG flags, STRPTR name)
  2942. {
  2943.   Flags |= FLAG_DONE; /* We did something */
  2944.   return DoOutput("\n_LVO%-24s\tEQU\t-%ld", name, ap->Bias);
  2945. }
  2946.  
  2947. ULONG FuncLVOLib(struct AmiPragma *ap, ULONG flags, STRPTR name)
  2948. {
  2949.   ULONG a[1], j;
  2950.  
  2951.   Flags |= FLAG_DONE; /* We did something */
  2952.   a[0] = (EXT_ABS << 24) + (((j=strlen(name)) + 4 + 3)>>2);
  2953.  
  2954.   DoOutputDirect(a, 4);
  2955.   DoOutputDirect("_LVO", 4);
  2956.   DoOutputDirect(name, j);
  2957.   DoOutputDirect("\0\0\0", ((j+3)&(~3))-j);
  2958.   a[0] = -ap->Bias;
  2959.   return DoOutputDirect(a, 4);
  2960. }
  2961.  
  2962. ULONG FuncLocCode(struct AmiPragma *ap, ULONG flags, STRPTR name)
  2963. {
  2964.   ULONG a[5];
  2965.   STRPTR str2 = Flags & FLAG_LOCALREG ? "rE" : "";
  2966.   LONG i = strlen(ShortBaseNameUpper);
  2967.   ULONG j;
  2968.   struct ClibData *cd = 0;
  2969.  
  2970.   if(CheckError(ap, AMIPRAGFLAG_PPC))
  2971.     return 1;
  2972.  
  2973.   Flags |= FLAG_DONE; /* We did something */
  2974.  
  2975.   a[0] = HUNK_UNIT; a[1] = 0; a[2] = HUNK_NAME;
  2976.   a[3] = (i + 4 + 3)>>2;
  2977.  
  2978.   DoOutputDirect(a, 16);
  2979.   DoOutputDirect(ShortBaseNameUpper, i);
  2980.   DoOutputDirect("_LOC\0\0\0", (a[3]<<2)-i);
  2981.  
  2982.   if(Flags & FLAG_LOCALREG)
  2983.   {
  2984.     if((flags & FUNCFLAG_TAG))
  2985.     {
  2986.       j = ap->Args[ap->NumArgs-1].ArgReg;
  2987.       a[0] = HUNK_CODE; a[1] = 4;
  2988.       a[2] = 0x2F000000 + (j << 16);    /* MOVE <ea>,-(A7) */
  2989.  
  2990.       DoOutputDirect(a, 10);
  2991.  
  2992.       a[1] = 0x4EAE0000 + (UWORD) (- ap->Bias); /* JSR instruction */
  2993.       a[2] = 0x201F4E75;                /* MOVE (A7)+,<ea> */
  2994.       a[3] = 0;
  2995.       if(j > 7)
  2996.       {                                 /* LEA x(A7),Ax */
  2997.         j -= 8;
  2998.         a[0] = 0x41EF0008 | (j << 25);
  2999.         a[2] += 0x400000;               /* set A flag */
  3000.       }
  3001.       else
  3002.       {                                 /* MOVE.L A7,Dx  -- ADDQ.L #8,Dx */
  3003.         a[0] = 0x200F5080 | j | (j << 25);
  3004.       }
  3005.       a[2] += j << 25;
  3006.  
  3007.       DoOutputDirect(a, 14);
  3008.     }
  3009.     else
  3010.     {
  3011.       a[0] = HUNK_CODE; a[1] = 1;
  3012.       a[2] = 0x4EEE0000 + (UWORD) (- ap->Bias); /* JMP instruction */
  3013.       DoOutputDirect(a, 12);
  3014.     }
  3015.   }
  3016.   else
  3017.   {
  3018.     ULONG registers, offset = 1, pos = 4;
  3019.     UWORD *data;
  3020.  
  3021.     data = (UWORD *) tempbuf;
  3022.  
  3023.     registers = GetRegisterData(ap);
  3024.  
  3025.     data[0] = 0;
  3026.     data[1] = HUNK_CODE;
  3027.     data[2] = 0;
  3028.     /* data[3] is size */
  3029.  
  3030.     if(!registers) /* happens only when !(ap->Flags & AMIPRAG_A6USE) */
  3031.     {
  3032.       data[pos++] = 0x2F0E;             /* MOVE.L A6,-(A7) */
  3033.       ++offset;                         /* one long more on stack */
  3034.     }
  3035.     else
  3036.     {
  3037.       if(Flags & FLAG_NOMOVEM)
  3038.       {
  3039.         for(i = 0; i <= 15; ++i)
  3040.         {
  3041.           if(registers & (1<< (16+i)))
  3042.           {
  3043.             data[pos++] = 0x2F00 + i;   /* MOVE.L xxx,-(A7) */
  3044.             ++offset;
  3045.           }
  3046.         }
  3047.       }
  3048.       else
  3049.       {
  3050.         ULONG l;
  3051.         data[pos++] = 0x48E7;           /* MOVEM.L xxx,-(A7) */
  3052.         data[pos++] = registers;        /* store MOVEM.L registers */
  3053.         for(l = (UWORD) registers; l; l >>= 1)
  3054.         {
  3055.           if(l & 1)
  3056.             ++offset;                   /* get offset addition */
  3057.         }
  3058.       }
  3059.     }
  3060.  
  3061.     if(!(ap->Flags & AMIPRAGFLAG_A6USE)) /* store library base in A6 */
  3062.     {
  3063.       data[pos++] = 0x2C6F;             /* MOVE.L ofs(A7),A6 */
  3064.       data[pos++] = (offset++) << 2;
  3065.     }
  3066.  
  3067.     pos = AsmStackCopy(data+pos, ap, flags, offset) - data;
  3068.  
  3069.     /* here comes the base reference */
  3070.     data[pos++] = 0x4EAE;               /* JSR xxx(A6) */
  3071.     data[pos++] = -ap->Bias;            /* JSR offset */
  3072.     if(registers)
  3073.     {
  3074.       if(Flags & FLAG_NOMOVEM)
  3075.       {
  3076.         for(i = 15; i >= 0; --i)
  3077.         {
  3078.           if(registers & (1<<(16+i)))   /* MOVE.L (A7)+,xxx */
  3079.             data[pos++] = 0x201F + ((i&7)<<9) + ((i>>3)<<6);
  3080.         }
  3081.       }
  3082.       else
  3083.       {
  3084.         data[pos++] = 0x4CDF;           /* MOVEM.L (A7)+,xxx */
  3085.         data[pos++] = (registers >> 16); /* store MOVEM.L registers */
  3086.       }
  3087.     }
  3088.     else
  3089.       data[pos++] = 0x2C5F;             /* MOVE.L (A7)+,A6 */
  3090.  
  3091.     data[pos++] = 0x4E75;               /* RTS */
  3092.  
  3093.     if(pos & 1)
  3094.       data[pos++] = 0;                  /* round to long */
  3095.  
  3096.     data[3] = (pos-4)>>1;               /* store hunk len */
  3097.     DoOutputDirect(data, pos<<1);
  3098.   }
  3099.  
  3100.   a[0] = HUNK_EXT;
  3101.   DoOutputDirect(a,4);
  3102.  
  3103.   /* here come the XDEF name references */
  3104.  
  3105.   OutputXDEF("%s", name);               /* ASM names */
  3106.   OutputXDEF("LOC_%s", name);
  3107.  
  3108.   OutputXDEF("_%s", name);              /* C names */
  3109.   OutputXDEF("_LOC_%s", name);
  3110.  
  3111.   if(!ap->NumArgs && clibdata)
  3112.   {
  3113.     OutputXDEF("%s__%sP07Library", name, str2); /* C++ names no parameters */
  3114.     OutputXDEF("LOC_%s__%sP07Library", name, str2);
  3115.   }
  3116.   else if((cd = GetClibFunc(name, ap, flags)))
  3117.   {
  3118.     STRPTR txt;
  3119.     ULONG ret = 0;
  3120.     
  3121.     txt = (STRPTR) tempbuf;
  3122.  
  3123.     do
  3124.     {
  3125.       if((ret = CopyCPPType(txt, ret, cd, ap->Args)))
  3126.       {                                 /* C++ names with parameters */
  3127.         if(!(ap->Flags & AMIPRAGFLAG_A6USE))
  3128.         {
  3129.           OutputXDEF("%s__%sP07Library%s", name, str2, txt);
  3130.           OutputXDEF("LOC_%s__%sP07Library%s", name, str2, txt);
  3131.         }
  3132.         else
  3133.         {
  3134.           OutputXDEF("%s__%s", name, txt);
  3135.           OutputXDEF("LOC_%s__%s", name, txt);
  3136.         }
  3137.       }
  3138.     } while(ret == 0xFFFFFFFF);
  3139.   }
  3140.  
  3141.   a[0] = 0;
  3142.   DoOutputDirect(a, 4);
  3143.   if(!(Flags & FLAG_NOSYMBOL))
  3144.   {
  3145.     a[0] = HUNK_SYMBOL;
  3146.     DoOutputDirect(a, 4);
  3147.     OutputSYMBOL("%s", name);               /* ASM names */
  3148.     OutputSYMBOL("LOC_%s", name);
  3149.  
  3150.     OutputSYMBOL("_%s", name);              /* C names */
  3151.     OutputSYMBOL("_LOC_%s", name);
  3152.  
  3153.     if(!ap->NumArgs && clibdata)
  3154.     {
  3155.       OutputSYMBOL("%s__%sP07Library", name, str2); /* C++ names no parameters */
  3156.       OutputSYMBOL("LOC_%s__%sP07Library", name, str2);
  3157.     }
  3158.     else if(cd)
  3159.     {
  3160.       STRPTR txt;
  3161.       ULONG ret = 0;
  3162.     
  3163.       txt = (STRPTR) tempbuf;
  3164.  
  3165.       do
  3166.       {
  3167.         if((ret = CopyCPPType(txt, ret, cd, ap->Args)))
  3168.         {                                 /* C++ names with parameters */
  3169.           if(!(ap->Flags & AMIPRAGFLAG_A6USE))
  3170.           {
  3171.             OutputSYMBOL("%s__%sP07Library%s", name, str2, txt);
  3172.             OutputSYMBOL("LOC_%s__%sP07Library%s", name, str2, txt);
  3173.           }
  3174.           else
  3175.           {
  3176.             OutputSYMBOL("%s__%s", name, txt);
  3177.             OutputSYMBOL("LOC_%s__%s", name, txt);
  3178.           }
  3179.         }
  3180.       } while(ret == 0xFFFFFFFF);
  3181.     }
  3182.  
  3183.     a[0] = 0;
  3184.     DoOutputDirect(a, 4);
  3185.   }
  3186.   a[0] = HUNK_END;
  3187.  
  3188.   return DoOutputDirect(a, 4);
  3189. }
  3190.  
  3191. ULONG FuncLocText(struct AmiPragma *ap, ULONG flags, STRPTR name)
  3192. {
  3193.   struct ClibData *cd;
  3194.   LONG i;
  3195.  
  3196.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_PPC))
  3197.     return 1;
  3198.  
  3199.   Flags |= FLAG_DONE; /* We did something */
  3200.  
  3201.   if(!(cd = GetClibFunc(name, ap, flags)))
  3202.     return 1;
  3203.  
  3204.   OutClibType(&cd->ReturnType, 0);
  3205.   DoOutput(" LOC_%s("/*)*/, name);
  3206.   if(!(ap->Flags & AMIPRAGFLAG_A6USE))
  3207.   {
  3208.     if(Flags & FLAG_LOCALREG)
  3209.       DoOutput("register __a6 ");
  3210.     DoOutput("struct Library * libbase");
  3211.     if(ap->NumArgs)
  3212.       DoOutput(", ");
  3213.   }
  3214.  
  3215.   if(ap->NumArgs)
  3216.   {
  3217.     for(i = 0; i < ap->NumArgs-1; i++)
  3218.     {
  3219.       if(((Flags & FLAG_LOCALREG &&
  3220.       !DoOutput("register __%s ", RegNames[ap->Args[i].ArgReg]))) ||
  3221.       !OutClibType(&cd->Args[i], ap->Args[i].ArgName) || !DoOutput(", "))
  3222.         return 0;
  3223.     }
  3224.  
  3225.     if(flags & FUNCFLAG_NORMAL)
  3226.     {
  3227.       if(((Flags & FLAG_LOCALREG &&
  3228.       !DoOutput("register __%s ", RegNames[ap->Args[i].ArgReg]))) ||
  3229.       !OutClibType(&cd->Args[i], ap->Args[i].ArgName) ||
  3230.       !DoOutput(/*(*/");\n"))
  3231.         return 0;
  3232.       if(BaseName)
  3233.       {
  3234.         DoOutput("#define %s("/*)*/, name);
  3235.         for(i = 0; i < ap->NumArgs-1; ++i)
  3236.           DoOutput("%lc, ", (i+'a'));
  3237.         DoOutput(/*(*/"%lc) LOC_%s((struct Library *) %s, "/*)*/,(i+'a'),
  3238.         name, BaseName);
  3239.         for(i = 0; i < ap->NumArgs-1; ++i)
  3240.           DoOutput("%lc, ",(i+'a'));
  3241.         return DoOutput(/*(*/"%lc)\n\n",(i+'a'));
  3242.       }
  3243.     }
  3244.     else
  3245.       return DoOutput(/*(*/"...);\n");
  3246.   }
  3247.   else if(BaseName)
  3248.     return DoOutput(/*(*/");\n#define %s(a) LOC_%s((struct Library *) a)\n\n",
  3249.     name, name);
  3250.   else
  3251.     return DoOutput(/*(*/");\n");
  3252.   return 1;
  3253. }
  3254.  
  3255. ULONG FuncInline(struct AmiPragma *ap, ULONG flags, STRPTR name)
  3256. {
  3257.   ULONG noret = 0, a45 = 0, i, j;
  3258.   LONG fp = -1;
  3259.   struct ClibData *cd;
  3260.  
  3261.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_PPC))
  3262.     return 1;
  3263.  
  3264.   Flags |= FLAG_DONE; /* We did something */
  3265.  
  3266.   if(flags & FUNCFLAG_ALIAS)
  3267.   {
  3268.     if(flags & FUNCFLAG_TAG)
  3269.       return DoOutput("#ifndef NO_%sINLINE_STDARG\n#define %s %s\n#endif\n\n",
  3270.       Flags & FLAG_POWERUP ? "PPC" : "", name, ap->TagName);
  3271.  
  3272.     DoOutput("#define %s("/*)*/, name);
  3273.     for(i = 0; i < ap->NumArgs-1; ++i)
  3274.       DoOutput("%s, ", ap->Args[i].ArgName);
  3275.     DoOutput(/*(*/"%s) %s("/*)*/, ap->Args[i].ArgName, ap->FuncName);
  3276.     for(i = 0; i < ap->NumArgs-1; ++i)
  3277.       DoOutput("(%s), ", ap->Args[i].ArgName);
  3278.     return DoOutput(/*(*/"(%s))\n\n", ap->Args[i].ArgName);
  3279.   }
  3280.  
  3281.   if(!(cd = GetClibFunc(ap->FuncName, ap, flags)))
  3282.     return 1;
  3283.  
  3284.   if(IsCPPType(&cd->ReturnType, CPP_TYPE_VOID))
  3285.     noret = 1; /* this is a void function */
  3286.  
  3287.   if(ap->Flags & AMIPRAGFLAG_A5USE)
  3288.     a45 = REG_A5;
  3289.   if(ap->Flags & AMIPRAGFLAG_A4USE)
  3290.   {
  3291.     if(a45)
  3292.     {
  3293.       DoError(ERR_INLINE_A4_AND_A5, ap->Line);
  3294.       return 1; /* skip this entry */
  3295.     }
  3296.     a45 = REG_A4;
  3297.   }
  3298.   if(a45 && (ap->Flags & AMIPRAGFLAG_D7USE))
  3299.   {
  3300.     DoError(ERR_INLINE_D7_AND_A45, ap->Line);
  3301.     return 1; /* skip this entry */
  3302.   }
  3303.  
  3304.   if((flags & FUNCFLAG_TAG))
  3305.   {
  3306.     if(!(Flags & FLAG_INLINESTUB)) /* no stubs */
  3307.     {
  3308.       DoOutput("#ifndef NO_%sINLINE_STDARG\n#define %s("/*)*/, 
  3309.       Flags & FLAG_POWERUP ? "PPC" : "", name);
  3310.       for(i = 0; i < ap->NumArgs-1; ++i)
  3311.       {
  3312.         DoOutput("%s, ", ap->Args[i].ArgName);
  3313.       }
  3314.       DoOutput(/*(*/"tags...) \\\n\t({ULONG _tags[] = {tags}; %s("/*}))*/,
  3315.       ap->FuncName);
  3316.       for(i = 0; i < ap->NumArgs-1; ++i)
  3317.         DoOutput("(%s), ", ap->Args[i].ArgName);
  3318.       DoOutput("("/*)*/);
  3319.       OutClibType(&cd->Args[i], 0);
  3320.       return DoOutput(/*({((*/") _tags);})\n#endif\n\n");
  3321.     }
  3322.     else
  3323.       return FuncCSTUBS(ap, flags, name);
  3324.       /* call CSTUBS, as this equals the method used there */
  3325.   }
  3326.  
  3327.   if(Flags & FLAG_INLINENEW) /* new style */
  3328.   {
  3329.     STRPTR funcpar = "";
  3330.     DoOutput("#define %s("/*)*/, name);
  3331.  
  3332.     for(i = 0; i < cd->NumArgs; ++i)
  3333.     {
  3334.       if(cd->Args[i].Flags & CPP_FLAG_FUNCTION)
  3335.         funcpar = "FP";
  3336.     }
  3337.  
  3338.     if(ap->NumArgs)
  3339.     {
  3340.       for(i = 0; i < ap->NumArgs-1; ++i)
  3341.         DoOutput("%s, ", ap->Args[i].ArgName);
  3342.       DoOutput("%s", ap->Args[i].ArgName);
  3343.     }
  3344.     DoOutput(/*(*/") \\\n\tLP%ld%s%s%s%s(0x%lx, "/*)*/, ap->NumArgs,
  3345.     (noret ? "NR" : ""), (a45 ? RegNamesUpper[a45] : (STRPTR) ""),
  3346.     (BaseName ? "" : "UB"), funcpar, ap->Bias);
  3347.     if(!noret)
  3348.     {
  3349.       OutClibType(&cd->ReturnType, 0);
  3350.       DoOutput(", ");
  3351.     }
  3352.     DoOutput("%s, ", name);
  3353.  
  3354.     for(i = 0; i < ap->NumArgs; ++i)
  3355.     {
  3356.       j = ap->Args[i].ArgReg;
  3357.       if(a45 && (j == REG_A4 || j == REG_A5))
  3358.         j = REG_D7;
  3359.       if(cd->Args[i].Flags & CPP_FLAG_FUNCTION)
  3360.       {
  3361.         DoOutput("__fpt"); fp = i;
  3362.       }
  3363.       else
  3364.         OutClibType(&cd->Args[i], 0);
  3365.   
  3366.       DoOutput(", %s, %s%s", ap->Args[i].ArgName, RegNames[j],
  3367.       (i == ap->NumArgs-1 && !BaseName ? "" : ", "));
  3368.     }
  3369.  
  3370.     if(BaseName) /* was "##base" used? */
  3371.       DoOutput("\\\n\t, %s_BASE_NAME", ShortBaseNameUpper);
  3372.  
  3373.     if(fp >= 0)
  3374.     {
  3375.       DoOutput(", ");
  3376.       OutClibType(&cd->Args[fp], "__fpt");
  3377.     }
  3378.  
  3379.     if(Flags & FLAG_POWERUP)
  3380.       DoOutput(", IF_CACHEFLUSHALL, NULL, 0, IF_CACHEFLUSHALL, NULL, 0");
  3381.  
  3382.     return DoOutput(/*(*/")\n\n");
  3383.   }
  3384.  
  3385.   /* old mode or stubs mode */
  3386.  
  3387.   DoOutput("%s%s__inline ", Flags & FLAG_INLINESTUB ? "" : "extern ",
  3388.   Flags & FLAG_POWERUP ? "static " : "");
  3389.   OutClibType(&cd->ReturnType, 0);
  3390.   DoOutput("\n%s(%s"/*)*/, name, (BaseName ?
  3391.   (ap->NumArgs ? "BASE_PAR_DECL " : "BASE_PAR_DECL0") : ""));
  3392.  
  3393.   for(i = 0; i < ap->NumArgs; ++i)
  3394.   {
  3395.     OutClibType(&cd->Args[i], ap->Args[i].ArgName);
  3396.     if(i < ap->NumArgs-1)
  3397.       DoOutput(", ");
  3398.   }
  3399.  
  3400.   if(Flags & FLAG_POWERUP)
  3401.   {
  3402.     DoOutput(/*(*/")\n{\n\tstruct Caos MyCaos;\n"/*}*/
  3403.     "\tMyCaos.M68kCacheMode\t= IF_CACHEFLUSHALL;\n"
  3404.     "/*\tMyCaos.M68kStart\t= NULL;\t*/\n"
  3405.     "/*\tMyCaos.M68kSize\t\t= 0;\t*/\n"
  3406.     "\tMyCaos.PPCCacheMode\t= IF_CACHEFLUSHALL;\n"
  3407.     "/*\tMyCaos.PPCStart\t\t= NULL;\t*/\n"
  3408.     "/*\tMyCaos.PPCSize\t\t= 0;\t*/\n");
  3409.  
  3410.     if(ap->NumArgs)
  3411.     {
  3412.       for(i = 0; i < ap->NumArgs; ++i)
  3413.       {
  3414.         DoOutput("\tMyCaos.%s\t\t= (ULONG) %s;\n",
  3415.         RegNames[ap->Args[i].ArgReg], ap->Args[i].ArgName);
  3416.       }
  3417.     }
  3418.  
  3419.     DoOutput("\tMyCaos.caos_Un.Offset\t= %ld;\n", -ap->Bias);
  3420.  
  3421.     if(BaseName)
  3422.       DoOutput("\tMyCaos.a6\t\t= (ULONG) %s_BASE_NAME;\n", ShortBaseNameUpper);
  3423.     if(IsCPPType(&cd->ReturnType, CPP_TYPE_VOID))
  3424.       DoOutput(/*{*/"\tPPCCallOS(&MyCaos);\n}\n\n");
  3425.     else
  3426.     {
  3427.       DoOutput("\treturn(("/*))*/);
  3428.       OutClibType(&cd->ReturnType, 0);
  3429.       DoOutput(/*{((*/")PPCCallOS(&MyCaos));\n}\n\n");
  3430.     }
  3431.     return Output_Error;
  3432.   }
  3433.  
  3434.   DoOutput(/*(*/")\n{\n%s"/*}*/, (BaseName ? "   BASE_EXT_DECL\n" : ""));
  3435.  
  3436.   if(!noret)
  3437.   {
  3438.     DoOutput("   register ");
  3439.     OutClibType(&cd->ReturnType, "res");
  3440.     DoOutput(" __asm(\"d0\");\n");
  3441.   }
  3442.  
  3443.   if(BaseName)
  3444.     DoOutput("   register struct %s *a6 __asm(\"a6\") = BASE_NAME;\n",
  3445.     GetBaseType());
  3446.  
  3447.   for(i = 0; i < ap->NumArgs; ++i)
  3448.   {
  3449.     j = ap->Args[i].ArgReg;
  3450.     if(a45 && (j == REG_A4 || j == REG_A5))
  3451.       j = REG_D7;
  3452.  
  3453.     DoOutput("   register ");
  3454.     OutClibType(&cd->Args[i], RegNames[j]);
  3455.     DoOutput(" __asm(\"%s\") = %s;\n", RegNames[j], ap->Args[i].ArgName);
  3456.   }
  3457.  
  3458.   if(a45)
  3459.   {
  3460.     DoOutput("   __asm volatile (\"exg d7,%s\\n\\t"/*)*/
  3461.     "jsr a6@(-0x%lx:W)\\n\\texg d7,%s\"\n", RegNames[a45],
  3462.     ap->Bias, RegNames[a45]);
  3463.   }
  3464.   else
  3465.     DoOutput("   __asm volatile (\"jsr a6@(-0x%lx:W)\"\n"/*)*/, ap->Bias);
  3466.  
  3467.   DoOutput(noret ? "   : /* No Output */\n" : "   : \"=r\" (res)\n");
  3468.  
  3469.   DoOutput("   : ");
  3470.   if(BaseName)
  3471.     DoOutput("\"r\" (a6)%s", (ap->NumArgs ? ", ": ""));
  3472.  
  3473.   for(i = 0; i < ap->NumArgs; ++i)
  3474.   {
  3475.     j = ap->Args[i].ArgReg;
  3476.     if(a45 && (j == REG_A4 || j == REG_A5))
  3477.       j = REG_D7;
  3478.  
  3479.     DoOutput("\"r\" (%s)%s", RegNames[j], (i < ap->NumArgs-1 ? ", " : ""));
  3480.   }
  3481.  
  3482.   DoOutput("\n   : \"d0\", \"d1\", \"a0\", \"a1\", \"fp0\", \"fp1\"");
  3483.  
  3484.   if(noret)
  3485.     return DoOutput(/*({*/", \"cc\", \"memory\");\n}\n\n");
  3486.   else
  3487.     return DoOutput(/*({*/", \"cc\", \"memory\");\n   return res;\n}\n\n");
  3488. }
  3489.  
  3490. /* new style inlines designed by Bernardo Innocenti */
  3491. ULONG FuncInlineNS(struct AmiPragma *ap, ULONG flags, STRPTR name)
  3492. {
  3493.   ULONG i;
  3494.   struct ClibData *cd;
  3495.  
  3496.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_PPC))
  3497.     return 1;
  3498.  
  3499.   Flags |= FLAG_DONE; /* We did something */
  3500.  
  3501.   if(flags & FUNCFLAG_ALIAS)
  3502.   {
  3503.     if(flags & FUNCFLAG_TAG)
  3504.       return DoOutput("#ifndef NO_INLINE_STDARG\n#define %s %s\n#endif\n\n", name, ap->TagName);
  3505.  
  3506.     DoOutput("#define %s("/*)*/, name);
  3507.     for(i = 0; i < ap->NumArgs-1; ++i)
  3508.       DoOutput("%s, ", ap->Args[i].ArgName);
  3509.     DoOutput(/*(*/"%s) %s("/*)*/, ap->Args[i].ArgName, ap->FuncName);
  3510.     for(i = 0; i < ap->NumArgs-1; ++i)
  3511.       DoOutput("(%s), ", ap->Args[i].ArgName);
  3512.     return DoOutput(/*(*/"(%s))\n\n", ap->Args[i].ArgName);
  3513.   }
  3514.  
  3515.   if(!(cd = GetClibFunc(ap->FuncName, ap, flags)))
  3516.     return 1;
  3517.  
  3518.   if((flags & FUNCFLAG_TAG))
  3519.   {
  3520.     DoOutput("#ifndef NO_%sINLINE_STDARG\n#define %s("/*)*/, 
  3521.     Flags & FLAG_POWERUP ? "PPC" : "", name);
  3522.     for(i = 0; i < ap->NumArgs-1; ++i)
  3523.     {
  3524.       DoOutput("%s, ", ap->Args[i].ArgName);
  3525.     }
  3526.     DoOutput(/*(*/"tags...) \\\n\t({ULONG _tags[] = {tags}; %s("/*}))*/,
  3527.     ap->FuncName);
  3528.     for(i = 0; i < ap->NumArgs-1; ++i)
  3529.       DoOutput("(%s), ", ap->Args[i].ArgName);
  3530.     DoOutput("("/*)*/);
  3531.     OutClibType(&cd->Args[i], 0);
  3532.     return DoOutput(/*({((*/") _tags);})\n#endif\n\n");
  3533.   }
  3534.  
  3535.   if(Flags & FLAG_INLINEMAC)
  3536.   {
  3537.     DoOutput("#define %s("/*)*/, name);
  3538.     for(i = 0; i < ap->NumArgs; ++i)
  3539.     {
  3540.       DoOutput("%s", ap->Args[i].ArgName);
  3541.       if(i < ap->NumArgs-1)
  3542.         DoOutput(", ");
  3543.     }
  3544.     DoOutput(/*(*/") \\\n\t");
  3545.   }
  3546.   else
  3547.   {
  3548.     DoOutput("static inline ");
  3549.     OutClibType(&cd->ReturnType, 0);
  3550.     DoOutput(" %s("/*)*/, name);
  3551.     for(i = 0; i < ap->NumArgs; ++i)
  3552.     {
  3553.       OutClibType(&cd->Args[i], ap->Args[i].ArgName);
  3554.       if(i < ap->NumArgs-1)
  3555.         DoOutput(", ");
  3556.     }
  3557.     DoOutput(/*(*/")\n{\n\t"/*}*/);
  3558.     if(!IsCPPType(&cd->ReturnType, CPP_TYPE_VOID))
  3559.       DoOutput("return ");
  3560.   }
  3561.   DoOutput("(("/*))*/);
  3562.   OutClibType(&cd->ReturnType, 0);
  3563.   DoOutput(" (*)("/*)*/);
  3564.   for(i = 0; i < ap->NumArgs; ++i)
  3565.   {
  3566.     OutClibType(&cd->Args[i], 0);
  3567.     DoOutput(" __asm(\"%s\")", RegNames[ap->Args[i].ArgReg]);
  3568.     if(i < ap->NumArgs-1)
  3569.       DoOutput(", ");
  3570.   }
  3571.   if(BaseName)
  3572.   {
  3573.     if(ap->NumArgs)
  3574.       DoOutput(", ");
  3575.     DoOutput("struct Library * __asm(\"a6\")");
  3576.   }
  3577.   DoOutput(/*((*/"))");
  3578.   if(Flags & FLAG_INLINEMAC)
  3579.     DoOutput(" \\");
  3580.   if(BaseName)
  3581.     DoOutput(/*(*/"\n\t(((char *) %s_BASE_NAME) - %ld))("/*)*/, ShortBaseNameUpper, ap->Bias);
  3582.   else
  3583.   {
  3584.     for(i = 0; i < ap->NumArgs && ap->Args[i].ArgReg != REG_A6; ++i)
  3585.       ;
  3586.     if(i == ap->NumArgs)
  3587.       return 1;
  3588.     DoOutput(/*(*/"\n\t(((char *) %s) - %ld))("/*)*/, ap->Args[i].ArgName, ap->Bias);
  3589.   }
  3590.   for(i = 0; i < ap->NumArgs; ++i)
  3591.   {
  3592.     DoOutput("%s", ap->Args[i].ArgName);
  3593.     if(i < ap->NumArgs-1)
  3594.       DoOutput(", ");
  3595.   }
  3596.   if(BaseName)
  3597.   {
  3598.     if(ap->NumArgs)
  3599.       DoOutput(", ");
  3600.     DoOutput("(struct Library *) %s_BASE_NAME", ShortBaseNameUpper);
  3601.   }
  3602.  
  3603.   if(Flags & FLAG_INLINEMAC)
  3604.     DoOutput(/*(*/")\n");
  3605.   else
  3606.     DoOutput(/*{(*/");\n}\n");
  3607.  
  3608.   return DoOutput("\n");
  3609. }
  3610.  
  3611. ULONG FuncPowerUP(struct AmiPragma *ap, ULONG flags, STRPTR name)
  3612. {
  3613.   ULONG i;
  3614.   struct ClibData *cd;
  3615.  
  3616.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_PPC))
  3617.     return 1;
  3618.  
  3619.   Flags |= FLAG_DONE; /* We did something */
  3620.  
  3621.   if(flags & FUNCFLAG_ALIAS)
  3622.   {
  3623.     if(flags & FUNCFLAG_TAG)
  3624.       return DoOutput("#ifndef NO_PPCINLINE_STDARG\n#define %s %s\n#endif\n\n", name, ap->TagName);
  3625.  
  3626.     DoOutput("#define %s("/*)*/, name);
  3627.     for(i = 0; i < ap->NumArgs-1; ++i)
  3628.       DoOutput("%s, ", ap->Args[i].ArgName);
  3629.     DoOutput(/*(*/"%s) %s("/*)*/, ap->Args[i].ArgName, ap->FuncName);
  3630.     for(i = 0; i < ap->NumArgs-1; ++i)
  3631.       DoOutput("(%s), ", ap->Args[i].ArgName);
  3632.     return DoOutput(/*(*/"(%s))\n\n", ap->Args[i].ArgName);
  3633.   }
  3634.  
  3635.   if(!(cd = GetClibFunc(ap->FuncName, ap, flags)))
  3636.     return 1;
  3637.  
  3638.   if(flags & FUNCFLAG_TAG)
  3639.   {
  3640.     DoOutput("#ifndef NO_PPCINLINE_STDARG\n#define %s("/*)*/, name);
  3641.     for(i = 0; i < ap->NumArgs-1; ++i)
  3642.       DoOutput("%s, ", ap->Args[i].ArgName);
  3643.     DoOutput(/*(*/"tags...) \\\n\t({ULONG _tags[] = {tags}; %s("/*)})*/,
  3644.     ap->FuncName);
  3645.     for(i = 0; i < ap->NumArgs-1; ++i)
  3646.       DoOutput("(%s), ", ap->Args[i].ArgName);
  3647.     DoOutput("("/*)*/);
  3648.     OutClibType(&cd->Args[i], 0);
  3649.     return DoOutput(/*({((*/") _tags);})\n#endif\n\n");
  3650.   }
  3651.  
  3652.   DoOutput("#define\t%s("/*)*/, name);
  3653.  
  3654.   if(ap->NumArgs)
  3655.   {
  3656.   
  3657.     for(i = 0; i < ap->NumArgs-1; ++i)
  3658.       DoOutput("%s, ", ap->Args[i].ArgName);
  3659.     DoOutput(/*(*/"%s)\t_%s("/*)*/, ap->Args[i].ArgName, name);
  3660.  
  3661.     if(BaseName)
  3662.       DoOutput("%s_BASE_NAME, ", ShortBaseNameUpper);
  3663.  
  3664.     for(i = 0; i < ap->NumArgs-1; ++i)
  3665.       DoOutput("%s, ", ap->Args[i].ArgName);
  3666.     DoOutput(/*(*/"%s)\n\n", ap->Args[i].ArgName);
  3667.   }
  3668.   else if(BaseName)
  3669.     DoOutput(/*(*/")\t_%s(%s_BASE_NAME)\n\n", name, ShortBaseNameUpper);
  3670.   else
  3671.     DoOutput(/*(*/")\t_%s()\n\n", name);
  3672.  
  3673.   DoOutput("static __inline ");
  3674.   OutClibType(&cd->ReturnType, 0);
  3675.   
  3676.   DoOutput("\n_%s("/*)*/, name);
  3677.   if(BaseName)
  3678.     DoOutput("void * %s%s", BaseName, ap->NumArgs ? ", " : "");
  3679.  
  3680.   for(i = 0; i < ap->NumArgs; ++i)
  3681.   {
  3682.     OutClibType(&cd->Args[i], ap->Args[i].ArgName);
  3683.     if(i < ap->NumArgs-1)
  3684.       DoOutput(", ");
  3685.   }
  3686.  
  3687.   DoOutput(/*(*/")\n{\n\tstruct Caos MyCaos;\n"/*}*/
  3688.   "\tMyCaos.M68kCacheMode\t= IF_CACHEFLUSHALL;\n"
  3689.   "/*\tMyCaos.M68kStart\t= NULL;\t*/\n"
  3690.   "/*\tMyCaos.M68kSize\t\t= 0;\t*/\n"
  3691.   "\tMyCaos.PPCCacheMode\t= IF_CACHEFLUSHALL;\n"
  3692.   "/*\tMyCaos.PPCStart\t\t= NULL;\t*/\n"
  3693.   "/*\tMyCaos.PPCSize\t\t= 0;\t*/\n");
  3694.  
  3695.   if(ap->NumArgs)
  3696.   {
  3697.     for(i = 0; i < ap->NumArgs; ++i)
  3698.     {
  3699.       DoOutput("\tMyCaos.%s\t\t= (ULONG) %s;\n",
  3700.       RegNames[ap->Args[i].ArgReg], ap->Args[i].ArgName);
  3701.     }
  3702.   }
  3703.  
  3704.   DoOutput("\tMyCaos.caos_Un.Offset\t= %ld;\n", -ap->Bias);
  3705.  
  3706.   if(BaseName)
  3707.     DoOutput("\tMyCaos.a6\t\t= (ULONG) %s;\n", BaseName);
  3708.   if(IsCPPType(&cd->ReturnType, CPP_TYPE_VOID))
  3709.     DoOutput(/*{*/"\tPPCCallOS(&MyCaos);\n}\n\n");
  3710.   else
  3711.   {
  3712.     DoOutput("\treturn(("/*))*/);
  3713.     OutClibType(&cd->ReturnType, 0);
  3714.     DoOutput(/*{((*/")PPCCallOS(&MyCaos));\n}\n\n");
  3715.   }
  3716.   return Output_Error;
  3717. }
  3718.  
  3719. ULONG FuncFPCUnit(struct AmiPragma *ap, ULONG flags, STRPTR name)
  3720. {
  3721.   LONG i;
  3722.   struct ClibData *cd;
  3723.  
  3724.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_FLOATARG|AMIPRAGFLAG_PPC))
  3725.     return 1;
  3726.   else if(!(cd = GetClibFunc(ap->FuncName, ap, flags)))
  3727.     return 1;
  3728.  
  3729.   if(!FuncFPCType(ap, flags, name))
  3730.     return 0;
  3731.  
  3732.   DoOutput("BEGIN\n  ASM\n\tMOVE.L\tA6,-(A7)\n");
  3733.  
  3734.   for(i = 0; i < ap->NumArgs; ++i)
  3735.     DoOutput("\tMOVE%s.L\t%s,%s\n", ap->Args[i].ArgReg >= REG_A0 ? "A" : "",
  3736.     ap->Args[i].ArgName, RegNamesUpper[ap->Args[i].ArgReg]);
  3737.  
  3738.   if(BaseName)
  3739.     DoOutput("\tMOVEA.L\t%s,A6\n", BaseName);
  3740.   DoOutput("\tJSR\t-%03ld(A6)\n\tMOVEA.L\t(A7)+,A6\n", ap->Bias);
  3741.  
  3742.   if(!IsCPPType(&cd->ReturnType, CPP_TYPE_VOID))
  3743.   {
  3744.     if(!cd->ReturnType.PointerDepth &&
  3745.     cd->ReturnType.Flags == CPP_FLAG_BOOLEAN)
  3746.       DoOutput("\tTST.W\tD0\n\tBEQ.B\t@end\n\tMOVEQ\t#1,D0\n"
  3747.       "  @end:\tMOVE.B\tD0,@RESULT\n");
  3748.     else
  3749.       DoOutput("\tMOVE.L\tD0,@RESULT\n");
  3750.   }
  3751.   return DoOutput("  END;\nEND;\n\n");
  3752. }
  3753.  
  3754. ULONG FuncFPCType(struct AmiPragma *ap, ULONG flags, STRPTR name)
  3755. {
  3756.   ULONG ret = 1;
  3757.   LONG i;
  3758.   struct ClibData *cd;
  3759.  
  3760.   if(CheckError(ap, AMIPRAGFLAG_FLOATARG|AMIPRAGFLAG_PPC))
  3761.     return 1;
  3762.   else if(!(cd = GetClibFunc(ap->FuncName, ap, flags)))
  3763.     return 1;
  3764.  
  3765.   if(IsCPPType(&cd->ReturnType, CPP_TYPE_VOID))
  3766.   {
  3767.     ret = 0; DoOutput("PROCEDURE %s", name);
  3768.   }
  3769.   else
  3770.     DoOutput("FUNCTION %s", name);
  3771.  
  3772.   if(ap->NumArgs)
  3773.   {
  3774.     DoOutput("("/*)*/);
  3775.     for(i = 0; i < ap->NumArgs;)
  3776.     {
  3777.       OutPASCALType(&cd->Args[i], ap->Args[i].ArgName, 0);
  3778.       if(++i != ap->NumArgs)
  3779.         DoOutput("; ");
  3780.     }
  3781.     DoOutput(/*(*/")");
  3782.   }
  3783.  
  3784.   if(ret)
  3785.     OutPASCALType(&cd->ReturnType, "", 1);
  3786.  
  3787.   Flags |= FLAG_DONE; /* We did something */
  3788.  
  3789.   return DoOutput(";\n");
  3790. }
  3791.  
  3792. ULONG FuncBMAP(struct AmiPragma *ap, ULONG flags, STRPTR name)
  3793. {
  3794.   UBYTE reg, i;
  3795.  
  3796.   if(CheckError(ap, AMIPRAGFLAG_FLOATARG|AMIPRAGFLAG_A6USE|AMIPRAGFLAG_A5USE|AMIPRAGFLAG_PPC))
  3797.     return 1;
  3798.  
  3799.   Flags |= FLAG_DONE; /* We did something */
  3800.  
  3801.   for(i = 0; BMAPSpecial[i]; ++i)
  3802.   {
  3803.     if(!stricmp(name, BMAPSpecial[i]))
  3804.     {
  3805.       DoOutput("x"); break;
  3806.     }
  3807.   }
  3808.  
  3809.   DoOutput(name);
  3810.   reg = 0;                      DoOutputDirect(®, 1);
  3811.   reg = (-ap->Bias)>>8;         DoOutputDirect(®, 1);
  3812.   reg = -ap->Bias;              DoOutputDirect(®, 1);
  3813.   for(i = 0; i < ap->NumArgs; ++i)
  3814.   {
  3815.     reg = 1+ap->Args[i].ArgReg; DoOutputDirect(®, 1);
  3816.   }
  3817.   reg = 0;
  3818.   return DoOutputDirect(®, 1);
  3819. }
  3820.  
  3821. ULONG FuncVBCCInline(struct AmiPragma *ap, ULONG flags, STRPTR name)
  3822. {
  3823.   struct ClibData *cd;
  3824.   STRPTR c1, c2;
  3825.   ULONG i;
  3826.  
  3827.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_PPC))
  3828.     return 1;
  3829.  
  3830.   if(!(cd = GetClibFunc(name, ap, flags)))
  3831.     return 1;
  3832.  
  3833.   c1 = Flags & FLAG_NEWSYNTAX ? "(" : ""; /*)*/
  3834.   c2 = Flags & FLAG_NEWSYNTAX ? "," : "("; /*)*/
  3835.  
  3836.   Flags |= FLAG_DONE; /* We did something */
  3837.  
  3838.   if(flags & FUNCFLAG_ALIAS)
  3839.   {
  3840.     DoOutput("#define %s("/*)*/, name);
  3841.     for(i = 0; i < ap->NumArgs-1; ++i)
  3842.       DoOutput("%s, ", ap->Args[i].ArgName);
  3843.     DoOutput(/*(*/"%s) __%s("/*)*/, ap->Args[i].ArgName, ap->FuncName);
  3844.     for(i = 0; i < ap->NumArgs; ++i)
  3845.       DoOutput("(%s), ", ap->Args[i].ArgName);
  3846.     return DoOutput(/*(*/"%s)\n\n", BaseName);
  3847.   }
  3848.  
  3849.   OutClibType(&cd->ReturnType, 0);
  3850.   DoOutput(" __%s("/*)*/, name);
  3851.  
  3852.   for(i = 0; i < ap->NumArgs; ++i)
  3853.   {
  3854.     DoOutput("__reg(\"%s\") ", RegNames[ap->Args[i].ArgReg]);
  3855.     OutClibType(&cd->Args[i], ap->Args[i].ArgName);
  3856.     if(i < ap->NumArgs-1)
  3857.       DoOutput(", ");
  3858.   }
  3859.  
  3860.   if(BaseName)
  3861.   {
  3862.     if(ap->NumArgs)
  3863.       DoOutput(", ");
  3864.     DoOutput("__reg(\"a6\") void *");
  3865.   }
  3866.   DoOutput(/*((*/")=\"\\tJSR\\t%s-%ld%sA6)\";\n", c1, ap->Bias, c2);
  3867.   DoOutput("#define %s("/*)*/, name);
  3868.   for(i = 0; i < ap->NumArgs; ++i)
  3869.   {
  3870.     DoOutput("%s", ap->Args[i].ArgName);
  3871.     if(i < ap->NumArgs-1)
  3872.       DoOutput(", ");
  3873.   }
  3874.   DoOutput(/*(*/") __%s("/*)*/, name);
  3875.   for(i = 0; i < ap->NumArgs; ++i)
  3876.   {
  3877.     DoOutput("(%s)", ap->Args[i].ArgName);
  3878.     if(i < ap->NumArgs-1)
  3879.       DoOutput(", ");
  3880.   }
  3881.   if(BaseName)
  3882.   {
  3883.     if(ap->NumArgs)
  3884.       DoOutput(", ");
  3885.     DoOutput("%s", BaseName);
  3886.   }
  3887.  
  3888.   return DoOutput(/*(*/")\n\n");
  3889. }
  3890.  
  3891. ULONG FuncVBCCWOSText(struct AmiPragma *ap, ULONG flags, STRPTR name)
  3892. {
  3893.   ULONG i, k, count, ofs;
  3894.   struct ClibData *cd = 0;
  3895.  
  3896.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_FLOATARG))
  3897.     return 1;
  3898.  
  3899.   if((flags & FUNCFLAG_TAG) && !(ap->Flags & AMIPRAGFLAG_PPC) &&!(cd = GetClibFunc(name, ap, flags)))
  3900.     return 1;
  3901.  
  3902.   if((ap->Flags & AMIPRAGFLAG_PPC) && !BaseName &&
  3903.   ((ap->Flags & (AMIPRAGFLAG_PPC0|AMIPRAGFLAG_PPC2)) || !(Flags & FLAG_WOSLIBBASE)))
  3904.   {
  3905.     DoError(ERR_MISSING_BASENAME, ap->Line);
  3906.     return 1;
  3907.   }
  3908.  
  3909.   Flags |= FLAG_DONE;
  3910.  
  3911.   if(Flags & FLAG_ASMSECTION)
  3912.     DoOutput("\t.section %s,\"cr\"\n", name);
  3913.  
  3914.   DoOutput("\t.text\n\t.align\t3\n");
  3915.   if(Flags & FLAG_WOSLIBBASE)  /* PPCBase already in r3, LibBase in r4 */
  3916.   {
  3917.     if(ap->Flags & (AMIPRAGFLAG_PPC0|AMIPRAGFLAG_PPC2))
  3918.       DoOutput("\t.extern _%s\n", BaseName);
  3919.     DoOutput("\t.global __%s\n__%s:\n", name, name);
  3920.   }
  3921.   else
  3922.   {
  3923.     if(BaseName)
  3924.       DoOutput("\t.extern _%s\n", BaseName);
  3925.     if(!(ap->Flags & AMIPRAGFLAG_PPC))
  3926.       DoOutput("\t.extern _PowerPCBase\n");
  3927.     DoOutput("\t.global _%s\n_%s:\n", name, name);
  3928.   }
  3929.  
  3930.   if(ap->Flags & AMIPRAGFLAG_PPC2)
  3931.   {
  3932.     DoOutput("\tstw\tr2,20(r1)\n\tmflr\tr0\n\tstw\tr0,16(r1)\n"
  3933.     "\tlwz\tr2,_%s(r2)\n\tlwz\tr0,-%ld(r2)\n\tmtlr\tr0\n\tblrl\n"
  3934.     "\tlwz\tr0,16(r1)\n\tlwz\tr2,20(r1)\n\tmtlr\tr0\n\tblr\n",
  3935.     BaseName,ap->Bias-2);
  3936.   }
  3937.   else if(ap->Flags & AMIPRAGFLAG_PPC0)
  3938.   {
  3939.     DoOutput("\tlwz\tr11,_%s(r2)\n\tlwz\tr0,-%ld(r11)\n\tmtlr\tr0\n\tblrl\n",
  3940.     BaseName,ap->Bias-2);
  3941.   }
  3942.   else if(ap->Flags & AMIPRAGFLAG_PPC)
  3943.   {
  3944.     count = ap->NumArgs;
  3945.     if(Flags & FLAG_WOSLIBBASE)    /* LibBase already in r3 */
  3946.     {
  3947.       /* init stack frame */
  3948.       i = (count <= 8) ? 32 : ((56+(count-8)*8+15)&~15); /* stksize */
  3949.       DoOutput("\tmflr\tr0\n\tstw\tr0,8(r1)\n\tstwu\tr1,-%ld(r1)\n",i);
  3950.  
  3951.       if(count > 8)
  3952.       {
  3953.         /* extra arguments must be passed on the stack */
  3954.         k = 32-(count-8); /* firstreg */
  3955.  
  3956.         DoOutput("\tstmw\tr%ld,%ld(r1)\n\tlmw\tr%ld,%ld(r1)\n",
  3957.     k, 56+(count-8)*4,k,i+56);
  3958.         if(flags & FUNCFLAG_TAG)
  3959.           DoOutput("\taddi\tr31,r1,%ld\n", i+20+count*4);
  3960.         DoOutput("\tstmw\tr%ld,56(r1)\n",k);
  3961.       }
  3962.       else if(flags & FUNCFLAG_TAG)
  3963.       {
  3964.         DoOutput("\taddi\tr%ld,r1,%ld\n", count+3, i+20+count*4);
  3965.         --count;
  3966.       }
  3967.     }
  3968.     else    /* Args must be shifted! */
  3969.     {
  3970.       /* init stack frame */
  3971.       i = (count < 8) ? 32 : ((56+(count-7)*8+15)&~15); /* stksize */
  3972.       DoOutput("\tmflr\tr0\n\tstw\tr0,8(r1)\n\tstwu\tr1,-%ld(r1)\n", i);
  3973.  
  3974.       if(count > 7)
  3975.       {
  3976.         /* extra arguments must be passed on the stack */
  3977.         if(count == 8)
  3978.         {
  3979.           /* special case: move 8th argument into stack frame */
  3980.           if(flags & FUNCFLAG_TAG)
  3981.             DoOutput("\taddi\tr10,r1,%ld\n",i+20+count*4);
  3982.           DoOutput("\tstw\tr10,56(r1)\n");
  3983.         }
  3984.         else
  3985.         {
  3986.           k = 32-(count-7); /* firstreg */
  3987.  
  3988.           DoOutput("\tstmw\tr%ld,%ld(r1)\n\tmr\tr%ld,r10\n"
  3989.       "\tlmw\tr%ld,%ld(r1)\n", k, 56+(count-7)*4, k, k+1, i+56);
  3990.           if(flags & FUNCFLAG_TAG)
  3991.             DoOutput("\taddi\tr31,r1,%ld\n", i+20+count*4);
  3992.           DoOutput("\tstmw\tr%ld,56(r1)\n",k);
  3993.         }
  3994.       }
  3995.       else if(flags & FUNCFLAG_TAG)
  3996.       {
  3997.         DoOutput("\taddi\tr%ld,r1,%ld\n", count+3, i+20+count*4);
  3998.         --count;
  3999.       }
  4000.  
  4001.       /* shift all arguments into their following register */
  4002.       for(k=(count<8)?count:7; k > 0; --k)
  4003.         DoOutput("\tmr\tr%ld,r%ld\n", 3+k, 2+k);
  4004.  
  4005.       /* load library base and LVO, then call LVO via LR */
  4006.       DoOutput("\tlwz\tr3,_%s(r2)\n",BaseName);
  4007.     }
  4008.  
  4009.     /* call LVO */
  4010.     DoOutput("\tlwz\tr0,-%ld(r3)\n\tmtlr\tr0\n\tblrl\n", ap->Bias-2);
  4011.  
  4012.     /* cleanup stack frame and return */
  4013.     if(count > 8)
  4014.     {
  4015.       k = Flags & FLAG_WOSLIBBASE ? 8 : 7;    /* restore saved regs */
  4016.       DoOutput("\tlmw\tr%ld,%ld(r1)\n", 32-(count-k),56+(count-k)*4);
  4017.     }
  4018.     DoOutput("\taddi\tr1,r1,%ld\n\tlwz\tr0,8(r1)\n\tmtlr\tr0\n\tblr\n");
  4019.   }
  4020.   else
  4021.   {
  4022.     DoOutput("\tmflr\tr0\n\tstw\tr0,8(r1)\n\tstwu\tr1,-0xB0(r1)\n");
  4023.  
  4024.     /* clear PP_Flags, PP_Stack and PP_StackSize */
  4025.     DoOutput("\tli\tr11,0\n\tstw\tr11,0x28(r1)\n\tstw\tr11,0x2C(r1)\n"
  4026.     "\tstw\tr11,0x30(r1)\n");
  4027.  
  4028.     if(Flags & FLAG_WOSLIBBASE)
  4029.       DoOutput("\tli\tr11,-%ld\n\tstw\tr4,0x20(r1)\n\tstw\tr11,0x24(r1)\n"
  4030.       "\tstw\tr4,0x6C(r1)\n",ap->Bias);
  4031.     else if(!BaseName)
  4032.       DoOutput("\tli\tr11,-%ld\n\tstw\tr11,0x24(r1)\n",ap->Bias);
  4033.     else
  4034.       DoOutput("\tlwz\tr0,_%s(r2)\n\tli\tr11,-%ld\n"
  4035.       "\tstw\tr0,0x20(r1)\n\tstw\tr11,0x24(r1)\n\tstw\tr0,0x6c(r1)\n",
  4036.       BaseName,ap->Bias);
  4037.  
  4038.     ofs = Flags & FLAG_WOSLIBBASE ? 2 : 0;
  4039.     k = ap->NumArgs - (flags & FUNCFLAG_TAG ? 1 : 0);
  4040.     for(i = 0; i < k; ++i)
  4041.     {
  4042.       if(i + ofs <= 7)
  4043.       {
  4044.         if(ap->Args[i].ArgReg == REG_A6)
  4045.           DoOutput("\tstw\tr%ld,0x20(r1)\n",i+3+ofs);
  4046.         DoOutput("\tstw\tr%ld,",i+3+ofs);
  4047.       }
  4048.       else
  4049.       {
  4050.         DoOutput("\tlwz\tr11,%ld(r1)\n",(i+1+ofs)*4+196);
  4051.         if(ap->Args[i].ArgReg == REG_A6)
  4052.           DoOutput("\tstw\tr11,0x20(r1)\n");
  4053.         DoOutput("\tstw\tr11,");
  4054.       }
  4055.       DoOutput("%ld(r1)\n", 0x34+4*ap->Args[i].ArgReg);
  4056.     }
  4057.     if(flags & FUNCFLAG_TAG)
  4058.     {
  4059.       if((i+ofs) <= 7 && cd->Args[i].Type != CPP_TYPE_VARARGS)
  4060.         DoOutput("\tstw\tr%ld,%ld(r1)\n",i+3+ofs, 0xC4+(ap->NumArgs+ofs)*4);
  4061.       DoOutput("\taddi\tr11,r1,%ld\n\tstw\tr11,", 0xC4+(ap->NumArgs+ofs)*4);
  4062.       DoOutput("%ld(r1)\n", 0x34+4*ap->Args[i].ArgReg);
  4063.     }
  4064.  
  4065.     if(!(Flags & FLAG_WOSLIBBASE))
  4066.       DoOutput("\tlwz\tr3,_PowerPCBase(r2)\n");
  4067.  
  4068.     DoOutput("\taddi\tr4,r1,0x20\n\tlwz\tr0,-298(r3)\n\tmtlr\tr0\n\tblrl\n"
  4069.     "\tlwz\tr3,0x34(r1)\n\taddi\tr1,r1,0xB0\n\tlwz\tr0,8(r1)\n\tmtlr\tr0\n\tblr\n");
  4070.   }
  4071.  
  4072.   if(Flags & FLAG_WOSLIBBASE)
  4073.     return DoOutput("\t.type\t__%s,@function\n\t.size\t__%s,$-__%s\n\n",
  4074.     name, name, name);
  4075.   else
  4076.     return DoOutput("\t.type\t_%s,@function\n\t.size\t_%s,$-_%s\n\n",
  4077.     name, name, name);
  4078. }
  4079.  
  4080. ULONG FuncVBCCWOSCode(struct AmiPragma *ap, ULONG flags, STRPTR name)
  4081. {
  4082.   ULONG i, j = 0, k, l = 0, ofs, pos, count;
  4083.   ULONG *data;
  4084.   struct ClibData *cd = 0;
  4085.  
  4086.   data = (ULONG *) tempbuf;
  4087.  
  4088.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_FLOATARG))
  4089.     return 1;
  4090.  
  4091.   if((flags & FUNCFLAG_TAG) && !(ap->Flags & AMIPRAGFLAG_PPC) && !(cd = GetClibFunc(name, ap, flags)))
  4092.     return 1;
  4093.  
  4094.   if((ap->Flags & AMIPRAGFLAG_PPC) && !BaseName &&
  4095.   ((ap->Flags & (AMIPRAGFLAG_PPC0|AMIPRAGFLAG_PPC2)) || !(Flags & FLAG_WOSLIBBASE)))
  4096.   {
  4097.     DoError(ERR_MISSING_BASENAME, ap->Line);
  4098.     return 1;
  4099.   }
  4100.  
  4101.   Flags |= FLAG_DONE; /* We did something */
  4102.  
  4103.   if(Flags & FLAG_WOSLIBBASE)
  4104.   {
  4105.     i = strlen(name)+1;
  4106.     data[0] = HUNK_UNIT; data[1] = (i + 3)>>2;
  4107.   
  4108.     DoOutputDirect(data, 8);
  4109.     DoOutputDirect("_", 1);
  4110.     DoOutputDirect(name, i-1);
  4111.   }
  4112.   else
  4113.   {
  4114.     i = strlen(name);
  4115.     data[0] = HUNK_UNIT; data[1] = (i + 3)>>2;
  4116.   
  4117.     DoOutputDirect(data, 8);
  4118.     DoOutputDirect(name, i);
  4119.   }
  4120.   DoOutputDirect("\0\0\0", (data[1]<<2)-i);
  4121.  
  4122.   data[0] = HUNK_NAME;
  4123.   data[1] = 2;
  4124.   DoOutputDirect(data, 8);
  4125.   DoOutputDirect(".text\0\0\0", 8);
  4126.  
  4127.   data[0] = HUNK_PPC_CODE;
  4128.  
  4129.   pos = 2;
  4130.  
  4131.   if(ap->Flags & AMIPRAGFLAG_PPC2)
  4132.   {
  4133.     data[pos++] = 0x90410014; /* stw r2,20(r1) */
  4134.     data[pos++] = 0x7C0802A6; /* mflr r0 = mfspr r0,8 = get link register */
  4135.     data[pos++] = 0x90010010; /* stw r0,16(r1) */
  4136.     l = pos-2;
  4137.     data[pos++] = 0x80420000; /* lwz r2,BaseName(r2) */
  4138.     data[pos++] = 0x80030000 - ap->Bias; /* lwz r0,-ap->Bias(r2) */
  4139.     data[pos++] = 0x7C0803A6; /* mtlr r0 = mtspr 8,r0 = restore link register */
  4140.     data[pos++] = 0x4E800021; /* blrl = bclrl 20,0 = jump */
  4141.     data[pos++] = 0x80010010; /* lwz r0,16(r1) */
  4142.     data[pos++] = 0x80410014; /* lwz r2,20(r1) */
  4143.     data[pos++] = 0x7C0803A6; /* mtlr r0 = mtspr 8,r0 = restore link register */
  4144.     data[pos++] = 0x4E800020; /* blr = bclr 20,0 = jump */
  4145.   }
  4146.   else if(ap->Flags & AMIPRAGFLAG_PPC0)
  4147.   {
  4148.     l = pos-2;
  4149.     data[pos++] = 0x81620000; /* lwz r11,BaseName(r2) */
  4150.     data[pos++] = 0x800C0000 - ap->Bias; /* lwz r0,-ap->Bias(r11) */
  4151.     data[pos++] = 0x7C0803A6; /* mtlr r0 = mtspr 8,r0 = store link register */
  4152.     data[pos++] = 0x4E800021; /* blrl = bclrl 20,0 = jump */
  4153.   }
  4154.   else if(ap->Flags & AMIPRAGFLAG_PPC)
  4155.   {
  4156.     count = ap->NumArgs;
  4157.     if(Flags & FLAG_WOSLIBBASE)    /* LibBase already in r3 */
  4158.     {
  4159.       /* init stack frame */
  4160.       i = (count <= 8) ? 32 : ((56+(count-8)*8+15)&~15); /* stksize */
  4161.       data[pos++] = 0x7C0802A6; /* mflr r0 = mfspr r0,8 = get link register */
  4162.       data[pos++] = 0x90010008; /* stw r0,8(r1) */
  4163.       data[pos++] = 0x94220000 - i; /* stwu r1,-i(r1) */
  4164.  
  4165.       if(count > 8)
  4166.       {
  4167.         /* extra arguments must be passed on the stack */
  4168.         k = 32-(count-8); /* firstreg */
  4169.     data[pos++] = 0xBC010000 + (k << 21) + (56+(count-8)*4); /* stmw rk,X(r1) */
  4170.     data[pos++] = 0xB8010000 + (k << 21) + (i+56); /* lmw rk,Y(r1) */
  4171.         if(flags & FUNCFLAG_TAG)
  4172.           data[pos++] = 0x3BE10000 + (i+20+count*4); /* addi r31,r1,X */
  4173.         data[pos++] = 0xBC010038 + (k << 21); /* stmw rk,56(r1) */
  4174.       }
  4175.       else if(flags & FUNCFLAG_TAG)
  4176.       {
  4177.         data[pos++] = 0x38010000 + ((count+3)<<21) + (i+20+count*4); /* addi rX,r1,Y */
  4178.         --count;
  4179.       }
  4180.     }
  4181.     else    /* Args must be shifted! */
  4182.     {
  4183.       /* init stack frame */
  4184.       i = (count < 8) ? 32 : ((56+(count-7)*8+15)&~15); /* stksize */
  4185.       data[pos++] = 0x7C0802A6; /* mflr r0 = mfspr r0,8 = get link register */
  4186.       data[pos++] = 0x90010008; /* stw r0,8(r1) */
  4187.       data[pos++] = 0x94220000 - i; /* stwu r1,-i(r1) */
  4188.  
  4189.       if(count > 7)
  4190.       {
  4191.         /* extra arguments must be passed on the stack */
  4192.         if(count == 8)
  4193.         {
  4194.           /* special case: move 8th argument into stack frame */
  4195.           if(flags & FUNCFLAG_TAG)
  4196.             data[pos++] = 0x39410000 + (i+20+count*4); /* addi r10,r1,X */
  4197.           data[pos++] = 0x91410038; /* stw r10,56(r1) */
  4198.         }
  4199.         else
  4200.         {
  4201.           k = 32-(count-7); /* firstreg */
  4202.  
  4203.       data[pos++] = 0xBC010000 + (k << 21) + (56+(count-7)*4); /* stmw rk,X(r1) */
  4204.           data[pos++] = 0x7D405378 + (k<<16); /* mr rk,r10 = or rk,r10,r10 */
  4205.       data[pos++] = 0xB8010000 + ((k+1) << 21) + (i+56); /* lmw rk,Y(r1) */
  4206.           if(flags & FUNCFLAG_TAG)
  4207.             data[pos++] = 0x3BE10000 + (i+20+count*4); /* addi r31,r1,X */
  4208.           data[pos++] = 0xBC010038 + (k << 21); /* stmw rk,56(r1) */
  4209.         }
  4210.       }
  4211.       else if(flags & FUNCFLAG_TAG)
  4212.       {
  4213.         data[pos++] = 0x38010000 + ((count+3)<<21) + (i+20+count*4); /* addi rX,r1,Y */
  4214.         --count;
  4215.       }
  4216.  
  4217.       /* shift all arguments into their following register */
  4218.       for(k=(count<8)?count:7; k > 0; --k)
  4219.         data[pos++] = 0x7C000378 + ((3+k)<<16) + ((2+k)<<21) + ((2+k)<<11); /* mr rX,rY = or rX,rY,rY */
  4220.  
  4221.       /* load library base and LVO, then call LVO via LR */
  4222.       l = pos-2;
  4223.       data[pos++] =0x80620000; /* lwz r3,BaseName(r2) */
  4224.     }
  4225.     /* call LVO */
  4226.     data[pos++] = 0x80040000 - (ap->Bias-2); /* lwz r0,-(ap->Bias-2)(r3) */
  4227.     data[pos++] = 0x7C0803A6; /* mtlr r0 = mtspr 8,r0 = restore link register */
  4228.     data[pos++] = 0x4E800021; /* blrl = bclrl 20,0 = jump */
  4229.  
  4230.  
  4231.     /* cleanup stack frame and return */
  4232.     if(count > 8)
  4233.     {
  4234.       k = Flags & FLAG_WOSLIBBASE ? 8 : 7;    /* restore saved regs */
  4235.       data[pos++] = 0xB8010000 + ((32-(count-k))<<21) + (56+(count-k)*4); /* lmw rX,Y(r1) */
  4236.     }
  4237.     data[pos++] = 0x38210000 + i; /* addi r1,r1,i */
  4238.     data[pos++] = 0x80010008; /* lwz r0,8(r1) */
  4239.     data[pos++] = 0x7C0803A6; /* mtlr r0 = mtspr 8,r0 = restore link register */
  4240.     data[pos++] = 0x4E800020; /* blr = bclr 20,0 = jump */
  4241.   }
  4242.   else
  4243.   {
  4244.     data[pos++] = 0x7C0802A6;  /* mflr r0 = mfspr r0,8 = get link register */
  4245.     data[pos++] = 0x90010008;  /* stw r0,8(r1) = save link register in 8(r1) */
  4246.     data[pos++] = 0x9421FF50;  /* stwu r1,-0xB0(r1) = store word from r1 in -0xB0(r1) and update r1 */
  4247.  
  4248.     data[pos++] = 0x39600000;  /* li r11,0 = addi r11,r0,0 = clear r11 */
  4249.     data[pos++] = 0x91610028;  /* stwu r11,0x28(r1) = clear PP_Flags */
  4250.     data[pos++] = 0x9161002C;  /* stwu r11,0x2C(r1) = clear PP_Stack */
  4251.     data[pos++] = 0x91610030;  /* stwu r11,0x30(r1) = clear PP_StackSize */
  4252.  
  4253.     if(Flags & FLAG_WOSLIBBASE)
  4254.     {
  4255.       data[pos++] = 0x39610000 - ap->Bias; /* li r11,ap->Bias */
  4256.       data[pos++] = 0x90810020; /* stw r4,0x20(r1) = set PP_Code to Librarybase */
  4257.       data[pos++] = 0x91610024; /* stw r11,0x24(r1) = set PP_Offset to Bias value */
  4258.       data[pos++] = 0x9081006C; /* stw r4,0x6C(r1) = set A6 register */
  4259.     }
  4260.     else if(!BaseName)
  4261.     {
  4262.       data[pos++] = 0x39610000 -ap->Bias; /* li r11,ap->Bias */
  4263.       data[pos++] = 0x91610024; /* stw r11,0x24(r1) = set PP_Offset to Bias value */
  4264.     }
  4265.     else
  4266.     {
  4267.       l = pos-2;
  4268.       data[pos++] = 0x80020000; /* lwz r0,BaseName(r2)  --> 16BIT RELOC! */
  4269.       data[pos++] = 0x39610000 - ap->Bias; /* li r11,ap->Bias */
  4270.       data[pos++] = 0x90010020; /* stw r0,0x20(r1) = set PP_Code to Librarybase */
  4271.       data[pos++] = 0x91610024; /* stw r11,0x24(r1) = set PP_Offset to Bias value */
  4272.       data[pos++] = 0x9001006C; /* stw r4,0x6C(r1) = set A6 register */
  4273.     }
  4274.   
  4275.     ofs = Flags & FLAG_WOSLIBBASE ? 2 : 0;
  4276.     k = ap->NumArgs - (flags & FUNCFLAG_TAG ? 1 : 0);
  4277.     for(i = 0; i < k; ++i)
  4278.     {
  4279.       j = 0x34+4*ap->Args[i].ArgReg; /* PP_Regs offset */
  4280.       if(i + ofs <= 7)
  4281.       {
  4282.         if(ap->Args[i].ArgReg == REG_A6)
  4283.           data[pos++] = 0x90010020 + ((i+3+ofs)<<21); /* stw rX,0x20(r1) */
  4284.         data[pos++] = 0x90010000 + ((i+3+ofs)<<21) + j; /* stw rX,j(r1) */
  4285.       }
  4286.       else
  4287.       {
  4288.         data[pos++] = 0x81610000 + ((i+1+ofs)*4+0xC4); /* lwz r11,X(r1) = get data from stack */
  4289.         if(ap->Args[i].ArgReg == REG_A6)
  4290.           data[pos++] = 0x91610020; /* stw r11,0x20(r1) */
  4291.         data[pos++] = 0x91610000 + j; /* stw r11,j(r1) */
  4292.       }
  4293.     }
  4294.     if(flags & FUNCFLAG_TAG)
  4295.     {
  4296.       j = (ap->NumArgs+ofs)*4+0xC4;
  4297.  
  4298.       if((i+ofs) <= 7 && cd->Args[i].Type != CPP_TYPE_VARARGS)
  4299.         data[pos++] = 0x90010000 + ((i+3+ofs)<<21) + j; /* stw rX,j(r1) */
  4300.       data[pos++] = 0x39610000 + j; /* addi r11,r1,j */
  4301.       data[pos++] = 0x91610000 + (0x34+4*ap->Args[i].ArgReg); /* stw r11,X(r1) */
  4302.     }
  4303.  
  4304.     if(!(Flags & FLAG_WOSLIBBASE))
  4305.     {
  4306.       j = pos - 2; /* store 16BIT reloc offset */
  4307.       data[pos++] = 0x80620000; /* lwz r3,_PowerPCBase(r2) = get librarybase */
  4308.     }
  4309.     data[pos++] = 0x38810020; /* addi r4,r1,0x20 = {r4 := 0x20(r1)} */
  4310.     data[pos++] = 0x8003FED6; /* lwz r0,-298(r3) = load jumpin base */
  4311.     data[pos++] = 0x7C0803A6; /* mtlr r0 = mtspr 8,r0 = store link register */
  4312.     data[pos++] = 0x4E800021; /* blrl = bclrl 20,0 = jump */
  4313.     data[pos++] = 0x80610034; /* lwz r3,0x34(r1) = get result D0 */
  4314.     data[pos++] = 0x382100B0; /* addi r1,r1,0xB0 = free PRCArgs structure */
  4315.     data[pos++] = 0x80010008; /* lwz r0,8(r1) = get old link register */
  4316.     data[pos++] = 0x7C0803A6; /* mtlr r0 = mtspr 8,r0 = restore link register */
  4317.     data[pos++] = 0x4E800020; /* blr = bclr 20,0 = jump back */
  4318.   }
  4319.  
  4320.   data[1] = pos-2;
  4321.   data[pos++] = HUNK_EXT;
  4322.   DoOutputDirect(data, pos*4);
  4323.  
  4324.   if(Flags & FLAG_WOSLIBBASE)
  4325.   {
  4326.     if(ap->Flags & (AMIPRAGFLAG_PPC0|AMIPRAGFLAG_PPC2))
  4327.     {
  4328.       i = strlen(BaseName);
  4329.       data[0] = (EXT_DEXT16 << 24) + ((i + 1 + 3)>>2);
  4330.       data[1] = ('_' << 24);
  4331.       DoOutputDirect(data, 5);
  4332.       DoOutputDirect(BaseName, i++);
  4333.       DoOutputDirect("\0\0\0", ((i+3)&(~3))-i);
  4334.       data[0] = 1;
  4335.       data[1] = l*4+2;    /* l holds base reference position */
  4336.       DoOutputDirect(data, 8);
  4337.     }
  4338.     OutputXDEF("__%s", name);
  4339.   }
  4340.   else
  4341.   {
  4342.     if(BaseName)
  4343.     {
  4344.       i = strlen(BaseName);
  4345.       data[0] = (EXT_DEXT16 << 24) + ((i + 1 + 3)>>2);
  4346.       data[1] = ('_' << 24);
  4347.       DoOutputDirect(data, 5);
  4348.       DoOutputDirect(BaseName, i++);
  4349.       DoOutputDirect("\0\0\0", ((i+3)&(~3))-i);
  4350.       data[0] = 1;
  4351.       data[1] = l*4+2;    /* l holds base reference position */
  4352.       DoOutputDirect(data, 8);
  4353.     } 
  4354.     if(!(ap->Flags & AMIPRAGFLAG_PPC))
  4355.     {
  4356.       data[0] = (EXT_DEXT16 << 24) + (12>>2);
  4357.       DoOutputDirect(data, 4);
  4358.       DoOutputDirect("_PowerPCBase", 12);
  4359.       data[0] = 1;
  4360.       data[1] = j*4+2; /* j holds PPC base reference position */
  4361.       DoOutputDirect(data, 8);
  4362.     }
  4363.     OutputXDEF("_%s", name);
  4364.   }
  4365.   data[0] = 0;
  4366.   DoOutputDirect(data, 4);
  4367.   if(!(Flags & FLAG_NOSYMBOL))
  4368.   {
  4369.     data[0] = HUNK_SYMBOL;
  4370.     DoOutputDirect(data, 4);
  4371.     if(Flags & FLAG_WOSLIBBASE)
  4372.       OutputSYMBOL("__%s", name);
  4373.     else
  4374.       OutputSYMBOL("_%s", name);
  4375.     data[0] = 0;
  4376.     DoOutputDirect(data, 4);
  4377.   }
  4378.   data[0] = HUNK_END;
  4379.  
  4380.   return DoOutputDirect(data, 4);
  4381. }
  4382.  
  4383. ULONG FuncVBCCPUPText(struct AmiPragma *ap, ULONG flags, STRPTR name)
  4384. {
  4385.   ULONG i;
  4386.  
  4387.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_FLOATARG|AMIPRAGFLAG_PPC))
  4388.     return 1;
  4389.  
  4390.   Flags |= FLAG_DONE;
  4391.  
  4392.   if(Flags & FLAG_ASMSECTION)
  4393.     DoOutput("\t.section %s,\"cr\"\n", name);
  4394.   DoOutput("\t.text\n");
  4395.   if(BaseName)
  4396.     DoOutput("\t.global %s\n", BaseName);
  4397.   DoOutput("\t.global PPCCallOS\n\t.global %s\n"
  4398.   "\t.align\t3\n%s:\n",name, name);
  4399.  
  4400.   if(flags & FUNCFLAG_TAG)
  4401.   {
  4402.     /* Hack the stack-frame for varargs.
  4403.        Build stack-frame, but save LR in our own stack-frame,
  4404.        because we have to overwrite the lower 8 bytes of the
  4405.        caller's frame. */
  4406.     DoOutput("\tstwu\tr1,-128(r1)\n\tmflr\tr11\n\tstw\tr11,100(r1)\n");
  4407.  
  4408.     /* Save the caller's saved SP in our own stack-frame. */
  4409.     DoOutput("\tlwz\tr11,128(r1)\n\tstw\tr11,96(r1)\n");
  4410.  
  4411.     /* Store r3-r8 at the top of our stack-frame and r9-r10
  4412.        at the low 8 bytes of the caller's frame. This way all
  4413.        arguments will reside in one continuous area. */
  4414.     for(i=3+ap->NumArgs-1; i <= 10; ++i)
  4415.       DoOutput("\tstw\tr%ld,%ld(r1)\n", i, 104+4*(i-3));
  4416.   }
  4417.   else
  4418.     DoOutput("\tstwu\tr1,-96(r1)\n\tmflr\tr11\n\tstw\tr11,100(r1)\n");
  4419.  
  4420.   for(i = 0; i < ap->NumArgs; ++i)
  4421.   {
  4422.     if(!(flags & FUNCFLAG_TAG) || i < ap->NumArgs-1)
  4423.     {
  4424.       if(i <= 7)
  4425.         DoOutput("\tstw\tr%ld,",i+3);
  4426.       else
  4427.         DoOutput("\tlwz\tr11,%ld(r1)\n\tstw\tr11,",100+(i+1-8)*4);
  4428.     }
  4429.     else
  4430.       DoOutput("\taddi\tr11,r1,%ld\n\tstw\tr11,",100+ap->NumArgs*4);
  4431.     DoOutput("%ld(r1)\n",36+4*ap->Args[i].ArgReg);
  4432.   }
  4433.  
  4434.   /* Now place the real function call */
  4435.   DoOutput("\tli\tr11,-%ld\n\tstw\tr11,8(r1)\n" /* store offset in Chaos->caos_Un.Offset */
  4436.   "\tli\tr11,1\n\tstw\tr11,12(r1)\n\tstw\tr11,24(r1)\n", ap->Bias);
  4437.   /* set M68kCacheMode and PPCCacheMode to IF_CACHEFLUSHALL */
  4438.  
  4439.   if(BaseName)
  4440.   {
  4441.     if(Flags & FLAG_SMALLDATA)
  4442.       DoOutput("\tlwz\tr11,%s@sdarx(r13)\n",BaseName);
  4443.     else
  4444.       DoOutput("\tlis\tr11,%s@ha\n\tlwz\tr11,%s@l(r11)\n",
  4445.       BaseName,BaseName);
  4446.     DoOutput("\tstw\tr11,92(r1)\n"); /* store basepointer in A6 */
  4447.   }
  4448.  
  4449.   DoOutput("\taddi\tr3,r1,8\n\tbl\tPPCCallOS\n");
  4450.   if(flags & FUNCFLAG_TAG) /* Varargs. Rebuild the caller's stack-frame. */
  4451.     DoOutput("\tlwz\tr11,96(r1)\n\tstw\tr11,128(r1)\n"
  4452.     "\tlwz\tr11,100(r1)\n\tmtlr\tr11\n\taddi\tr1,r1,128\n");
  4453.   else
  4454.     DoOutput("\tlwz\tr11,100(r1)\n\tmtlr\tr11\n\taddi\tr1,r1,96\n");
  4455.  
  4456.   return DoOutput("\tblr\n\n");
  4457. }
  4458.  
  4459. ULONG FuncVBCCPUPCode(struct AmiPragma *ap, ULONG flags, STRPTR name)
  4460. {
  4461.   ULONG i, j=0, k, *data, pos;
  4462.   struct Elf32_Shdr *esh;
  4463.   struct Elf32_Ehdr *eeh;
  4464.   struct Elf32_Sym *esym;
  4465.   struct Elf32_Rela *erel;
  4466.   UBYTE size[10];
  4467.   struct ArHeader arh;
  4468.  
  4469.   data = (ULONG *) tempbuf;
  4470.  
  4471.   if(CheckError(ap, AMIPRAGFLAG_ARGCOUNT|AMIPRAGFLAG_FLOATARG|AMIPRAGFLAG_PPC))
  4472.     return 1;
  4473.  
  4474.   Flags |= FLAG_DONE;
  4475.  
  4476.   memset((STRPTR)tempbuf,0,TEMPSIZE);    /* clear all entries */
  4477.   memset(&arh, ' ', sizeof(struct ArHeader));
  4478.  
  4479.   if((i = strlen(name)) > 15-3)
  4480.   {
  4481.     sprintf(arh.ar_name, "%.5s__%s.o/", name, name+i-5);
  4482.     arh.ar_name[15] = ' ';
  4483.   }
  4484.   else
  4485.   {
  4486.     sprintf(arh.ar_name, "%s.o/", name);
  4487.     arh.ar_name[i+3] = ' ';
  4488.   }
  4489.  
  4490.   CopyMem("942836400", arh.ar_time, 9); /* 17.11.1999 12:00:00 */
  4491.   arh.ar_uid[0] = arh.ar_gid[0] = arh.ar_mode[1] =
  4492.   arh.ar_mode[2] = '0';
  4493.   arh.ar_mode[0] = '6';
  4494.   arh.ar_fmag[0] = 96;
  4495.   arh.ar_fmag[1] = '\n';
  4496.  
  4497.   eeh = (struct Elf32_Ehdr *) data;
  4498.   eeh->e_ident[EI_MAG0] = 0x7F;
  4499.   eeh->e_ident[EI_MAG1] = 'E';
  4500.   eeh->e_ident[EI_MAG2] = 'L';
  4501.   eeh->e_ident[EI_MAG3] = 'F';
  4502.   eeh->e_ident[EI_CLASS] = ELFCLASS32;
  4503.   eeh->e_ident[EI_DATA] = ELFDATA2MSB;
  4504.   eeh->e_ident[EI_VERSION] = EV_CURRENT;
  4505.   eeh->e_type = ET_REL;
  4506.   eeh->e_machine = EM_POWERPC;
  4507.   eeh->e_version = EV_CURRENT;
  4508.   eeh->e_ehsize = sizeof(struct Elf32_Ehdr);
  4509.   eeh->e_shentsize = sizeof(struct Elf32_Shdr);
  4510.   eeh->e_shnum = 6;
  4511.   eeh->e_shstrndx = 3; /* fourth table is string table */
  4512.  
  4513.   pos = (sizeof(struct Elf32_Ehdr)>>2);
  4514.   if(flags & FUNCFLAG_TAG)
  4515.   {
  4516.     /* Hack the stack-frame for varargs.
  4517.        Build stack-frame, but save LR in our own stack-frame,
  4518.        because we have to overwrite the lower 8 bytes of the
  4519.        caller's frame. */
  4520.     data[pos++] = 0x9421FF80;         /* stwu r1,-128(r1) */
  4521.     data[pos++] = 0x7D6802A6;         /* mflr r11 = mfspr r11,8 = get link register */
  4522.     data[pos++] = 0x91610064;         /* stw r11,100(r1) */
  4523.  
  4524.     /* Save the caller's saved SP in our own stack-frame. */
  4525.     data[pos++] = 0x81610080;        /* lwz r11,128(r1) */
  4526.     data[pos++] = 0x91610060;        /* stw r11,96(r1) */
  4527.  
  4528.     /* Store r3-r8 at the top of our stack-frame and r9-r10
  4529.        at the low 8 bytes of the caller's frame. This way all
  4530.        arguments will reside in one continuous area. */
  4531.     for(i=3+ap->NumArgs-1; i <= 10; ++i)
  4532.       data[pos++] = 0x90010000 + (i<<21) + (104+4*(i-3)); /* stw rX,Y(r1) */
  4533.   }
  4534.   else
  4535.   {
  4536.     data[pos++] = 0x9421FFA0;         /* stwu r1,-96(r1) */
  4537.     data[pos++] = 0x7D6802A6;         /* mflr r11 = mfspr r11,8 = get link register */
  4538.     data[pos++] = 0x91610064;         /* stw r11,100(r1) */
  4539.   }
  4540.  
  4541.   for(i = 0; i < ap->NumArgs; ++i)
  4542.   {
  4543.     j = 36+4*ap->Args[i].ArgReg;
  4544.     if(!(flags & FUNCFLAG_TAG) || i < ap->NumArgs-1)
  4545.     {
  4546.       if(i <= 7)
  4547.         data[pos++] = 0x90010000 + ((i+3)<<21) + j;    /* stw rX,j(r1) */
  4548.       else
  4549.       {
  4550.         data[pos++] = 0x81610000 + (100+(i+1-8)*4);    /* lwz r11,X(r1) = get data from stack */
  4551.         data[pos++] = 0x91610000 + j;            /* stw r11,j(r1) */
  4552.       }
  4553.     }
  4554.     else
  4555.     {
  4556.       data[pos++] = 0x39610000 + (100+ap->NumArgs*4);    /* addi r11,r1,X */
  4557.       data[pos++] = 0x91610000 + j;            /* stw r11,X(r1) */
  4558.     }
  4559.   }
  4560.  
  4561.   /* Now place the real function call */
  4562.   data[pos++] = 0x39610000 - ap->Bias;     /* li r11,-(ap->Bias) = addi r11,0,-ap->Bias */
  4563.   data[pos++] = 0x91610008;        /* stw r11,8(r1) */
  4564.   data[pos++] = 0x39600001;        /* li r11,1 = addi r11,0,1 = get IF_CACHEFLUSHALL */
  4565.   data[pos++] = 0x9161000C;        /* stw r11,12(r1) = set M68kCacheMode */
  4566.   data[pos++] = 0x91610018;        /* stw r11,24(r1) = set PPCCacheMode */
  4567.  
  4568.   if(BaseName)
  4569.   {
  4570.     if(Flags & FLAG_SMALLDATA)
  4571.     {
  4572.       j = pos<<2; /* store reloc offset */
  4573.       data[pos++] = 0x816D0000;        /* lwz r11,BaseName@sdarx(r13) */
  4574.     }
  4575.     else
  4576.     {
  4577.       j = pos<<2; /* store reloc offset */
  4578.       data[pos++] = 0x3D600000;        /* lis r11,BaseName@ha = addis r11,0,BaseName@ha */
  4579.       data[pos++] = 0x816B0000;        /* lwz r11,BaseName@l(r11) */
  4580.     }
  4581.     data[pos++] = 0x9161005C;        /* stw r11,92(r1) */
  4582.   }
  4583.  
  4584.   data[pos++] = 0x38610008;        /* addi r3,r1,8 */
  4585.   k = pos<<2; /* store reloc offset */
  4586.   data[pos++] = 0x48000001;        /* bl PPCCallOS */
  4587.   if(flags & FUNCFLAG_TAG) /* Varargs. Rebuild the caller's stack-frame. */
  4588.   {
  4589.     data[pos++] = 0x81610060;        /* lwz r11,96(r1) */
  4590.     data[pos++] = 0x91610080;        /* stw r11,128(r1) */
  4591.     data[pos++] = 0x81610064;        /* lwz r11,100(r1) */
  4592.     data[pos++] = 0x7D6803A6;        /* mtlr r11 = mtspr 8,r11 = restore link register */
  4593.     data[pos++] = 0x38210080;        /* addi r1,r1,128 */
  4594.   }
  4595.   else
  4596.   {
  4597.     data[pos++] = 0x81610064;        /* lwz r11,100(r1) */
  4598.     data[pos++] = 0x7D6803A6;        /* mtlr r11 = mtspr 8,r11 = restore link register */
  4599.     data[pos++] = 0x38210060;        /* addi r1,r1,96 */
  4600.   }
  4601.  
  4602.   data[pos++] = 0x4E800020;        /* blr = bclr 20,0 */
  4603.  
  4604.   data[pos++] = 0x002E7379;        /* 0.sy */
  4605.   data[pos++] = 0x6D746162;        /* mtab */
  4606.   data[pos++] = 0x002E7374;        /* 0.st */
  4607.   data[pos++] = 0x72746162;        /* rtab */
  4608.   data[pos++] = 0x002E7368;        /* 0.sh */
  4609.   data[pos++] = 0x73747274;        /* strt */
  4610.   data[pos++] = 0x6162002E;        /* ab0. */
  4611.   data[pos++] = 0x74657874;        /* text */
  4612.   data[pos++] = 0x002E7265;        /* 0.re */
  4613.   data[pos++] = 0x6C612E74;        /* la.t */
  4614.   data[pos++] = 0x65787400;        /* ext0 */
  4615.   eeh->e_shoff = (pos<<2);
  4616.  
  4617.   esh = (struct Elf32_Shdr *) (data+pos);
  4618.   esh[1].sh_name = 27; /* .text */
  4619.   esh[1].sh_type = SHT_PROGBITS;
  4620.   esh[1].sh_flags = SHF_ALLOC|SHF_EXECINSTR;
  4621.   esh[1].sh_offset = sizeof(struct Elf32_Ehdr);
  4622.   esh[1].sh_size = ((pos-11)<<2)-sizeof(struct Elf32_Ehdr);
  4623.   esh[1].sh_addralign = 16;
  4624.   esh[2].sh_name = 33; /* .rela.text */
  4625.   esh[2].sh_type = SHT_RELA;
  4626.   esh[2].sh_link = 4; /* the fifth entry is symbol table */
  4627.   esh[2].sh_info = 1; /* the second entry is programm data */
  4628.   esh[2].sh_addralign = 4;
  4629.   esh[2].sh_entsize = sizeof(struct Elf32_Rela);
  4630.   esh[3].sh_name = 17; /* .shstrtab */
  4631.   esh[3].sh_type = SHT_STRTAB;
  4632.   esh[3].sh_offset = (pos<<2)-44;
  4633.   esh[3].sh_size = 44;
  4634.   esh[3].sh_addralign = 1;
  4635.   esh[4].sh_name = 1; /* .symtab */
  4636.   esh[4].sh_type = SHT_SYMTAB;
  4637.   esh[4].sh_link = 5; /* the second entry is our string table */
  4638.   esh[4].sh_info = 2;
  4639.   esh[4].sh_addralign = 4;
  4640.   esh[4].sh_entsize = sizeof(struct Elf32_Sym);
  4641.   esh[5].sh_name = 9; /* .strtab */
  4642.   esh[5].sh_type = SHT_STRTAB;
  4643.   esh[5].sh_addralign = 1;
  4644.   pos += (sizeof(struct Elf32_Shdr)>>2)*6;    /* skip the section headers */
  4645.  
  4646.   esh[4].sh_offset = (pos << 2);
  4647.   esym = (struct Elf32_Sym *) (data+pos);
  4648.   esym[1].st_info = ELF32_ST_INFO(STB_LOCAL,STT_SECTION);
  4649.   esym[1].st_shndx = 1; /* the second entry is program section! */
  4650.   pos += BaseName ? 5*((sizeof(struct Elf32_Sym))>>2) : 4*((sizeof(struct Elf32_Sym))>>2);
  4651.   esh[4].sh_size = (pos<<2)-esh[4].sh_offset;
  4652.  
  4653.   esh[5].sh_offset = (pos<<2);
  4654.   esym[2].st_name = 1;
  4655.   esym[2].st_info = ELF32_ST_INFO(STB_GLOBAL,STT_NOTYPE);
  4656.   esym[2].st_shndx = 1; /* the second entry is program section! */
  4657.   sprintf(((STRPTR)(data+pos))+1, name); i = 1 + strlen(name) +1;
  4658.   esym[3].st_name = i;
  4659.   esym[3].st_info = ELF32_ST_INFO(STB_GLOBAL,STT_NOTYPE);
  4660.   sprintf(((STRPTR)(data+pos))+i, "PPCCallOS"); i += 10;
  4661.   if(BaseName)
  4662.   {
  4663.     esym[4].st_name = i;
  4664.     esym[4].st_info = ELF32_ST_INFO(STB_GLOBAL,STT_NOTYPE);
  4665.     sprintf(((STRPTR)(data+pos))+i, BaseName); i += strlen(BaseName)+1;
  4666.   }
  4667.   pos += (i+3)>>2; /* long aligned! */
  4668.   esh[5].sh_size = i;
  4669.  
  4670.   erel = (struct Elf32_Rela *) (data+pos);
  4671.   esh[2].sh_offset = (pos << 2);
  4672.   j -= (sizeof(struct Elf32_Ehdr)-2);
  4673.   k -= sizeof(struct Elf32_Ehdr);
  4674.   if(!BaseName)
  4675.   {
  4676.     erel[0].r_offset = k;
  4677.     erel[0].r_info = ELF32_R_INFO(3,R_PPC_REL24); /* entry 3, type 10 */
  4678.     pos += (sizeof(struct Elf32_Rela)>>2);
  4679.   }
  4680.   else if(Flags & FLAG_SMALLDATA)
  4681.   {
  4682.     erel[0].r_offset = k;
  4683.     erel[0].r_info = ELF32_R_INFO(3,R_PPC_REL24); /* entry 3, type 10 */
  4684.     erel[1].r_offset = j;
  4685.     erel[1].r_info = ELF32_R_INFO(4,R_PPC_SDAREL16); /* entry 4, type 32 */
  4686.     pos += (2*sizeof(struct Elf32_Rela)>>2);
  4687.   }
  4688.   else
  4689.   {
  4690.     erel[0].r_offset = k;
  4691.     erel[0].r_info = ELF32_R_INFO(3,R_PPC_REL24); /* entry 3, type 10 */
  4692.     erel[1].r_offset = j;
  4693.     erel[1].r_info = ELF32_R_INFO(4,R_PPC_ADDR16_HA); /* entry 4, type 6 */
  4694.     erel[2].r_offset = j+4;
  4695.     erel[2].r_info = ELF32_R_INFO(4,R_PPC_ADDR16_LO); /* entry 4, type 4 */
  4696.     pos += (3*sizeof(struct Elf32_Rela)>>2);
  4697.   }
  4698.   esh[2].sh_size = (pos<<2)-esh[2].sh_offset;
  4699.  
  4700.   j = pos<<2;
  4701.   for(i = 9; j; --i) /* make decimal number */
  4702.   {
  4703.     size[i] = (j%10)+'0';
  4704.     j /= 10;
  4705.   }
  4706.   for(j = 0; i < 9; ++j)
  4707.     arh.ar_size[j] = size[++i]; 
  4708.   
  4709.   DoOutputDirect(&arh, sizeof(struct ArHeader));
  4710.   return DoOutputDirect(data, pos*4);
  4711. }
  4712.  
  4713. ULONG CallFunc(ULONG tagmode, STRPTR comment, FuncType Func)
  4714. {
  4715.   struct Comment *com = 0;
  4716.   struct AmiPragma *ap;
  4717.  
  4718.   if(comment)
  4719.     com = (struct Comment *) Comment.First;
  4720.  
  4721.   for(ap = (struct AmiPragma *) AmiPragma.First; ap && !CTRL_C;
  4722.   ap = (struct AmiPragma *) ap->List.Next)
  4723.   {
  4724.     if(BaseName && (ap->Flags & AMIPRAGFLAG_A6USE))
  4725.     {
  4726.       DoError(ERR_A6_NOT_ALLOWED, ap->Line);
  4727.     }
  4728.     else if((ap->Flags & AMIPRAGFLAG_PUBLIC) || (Flags & FLAG_PRIVATE))
  4729.     {
  4730.       while(com && com->Bias <= ap->Bias)
  4731.       {
  4732.         if(!DoOutput(comment, com->Data))
  4733.           return 0;
  4734.         com = (struct Comment *) com->List.Next;
  4735.       }
  4736.  
  4737. #ifdef DEBUG_OLD
  4738.   Printf("Processing %s\n", ap->FuncName);
  4739. #endif
  4740.  
  4741.       if(tagmode != TAGMODE_TAGS && ap->FuncName &&
  4742.       !Func(ap, FUNCFLAG_NORMAL, ap->FuncName))
  4743.         return 0;
  4744.  
  4745.       if(tagmode && ap->TagName && !Func(ap, FUNCFLAG_TAG, ap->TagName))
  4746.         return 0;
  4747.  
  4748.       if(ap->AliasName &&
  4749.       (((ap->AliasName->Type & FUNCFLAG_TAG) && tagmode) ||
  4750.       (!(ap->AliasName->Type & FUNCFLAG_TAG) && tagmode != TAGMODE_TAGS)) &&
  4751.       !Func(ap, FUNCFLAG_ALIAS|ap->AliasName->Type, ap->AliasName->AliasName))
  4752.         return 0;
  4753.     }
  4754.   }
  4755.   while(com)
  4756.   {
  4757.     if(!DoOutput(comment, com->Data))
  4758.       return 0;
  4759.     com = (struct Comment *) com->List.Next;
  4760.   }
  4761.   return 1;
  4762. }
  4763.  
  4764. /* ------------------------------------------------------------------ */
  4765.  
  4766. LONG AddClibEntry(STRPTR buffer, STRPTR bufend, ULONG linenum)
  4767. {
  4768.   STRPTR buf = buffer;
  4769.   struct ClibData d, *f;
  4770.  
  4771.   memset(&d, 0, sizeof(struct ClibData));
  4772.   if(!GetCPPType(&d.ReturnType, SkipBlanks(buf)))
  4773.   {
  4774.     DoError(ERR_UNKNOWN_VARIABLE_TYPE, linenum, 0);
  4775.     return 0;
  4776.   }
  4777.   d.FuncName = SkipBlanks(d.ReturnType.TypeStart+d.ReturnType.FullLength);
  4778.   while(*(buf++) != '('/*)*/)
  4779.     ;
  4780.   *(SkipName(d.FuncName)) = 0;
  4781.   buf = SkipBlanksRet(buf);
  4782.  
  4783.   while(*buf != /*(*/')' && buf < bufend)
  4784.   {
  4785.     if(d.NumArgs == MAXREGPPC+1)
  4786.     {
  4787.       DoError(ERR_TO_MUCH_ARGUMENTS, linenum);
  4788.       return 0;
  4789.     }
  4790.     else if(!GetCPPType(&d.Args[d.NumArgs++], buf))
  4791.     {
  4792.       DoError(ERR_UNKNOWN_VARIABLE_TYPE, linenum, d.NumArgs);
  4793.       return 0;
  4794.     }
  4795.  
  4796.     buf += d.Args[d.NumArgs-1].FullLength;
  4797.     while(*buf != ',' && *buf != /*(*/')' && buf < bufend)
  4798.       ++buf;
  4799. #ifdef DEBUG_OLD
  4800.   Printf("Added argument %ld for %s (%ld bytes)\n", d.NumArgs, d.FuncName,
  4801.   d.Args[d.NumArgs-1].FullLength);
  4802. #endif
  4803.     if(*buf == ',')
  4804.       buf = SkipBlanksRet(++buf);
  4805.   }
  4806.  
  4807.   if(d.NumArgs == 1 && IsCPPType(&d.Args[0], CPP_TYPE_VOID))
  4808.     d.NumArgs = 0; /* void arguments are no arguments */
  4809.  
  4810.   if(!(f = (struct ClibData *) AllocListMem(sizeof(struct ClibData))))
  4811.     return -1;
  4812.  
  4813.   CopyMem(&d, f, sizeof(struct ClibData));
  4814.  
  4815.   if(!clibdata)
  4816.     clibdata = f;
  4817.   else
  4818.   {
  4819.     struct ClibData *e = clibdata;
  4820.     while(e->Next)
  4821.       e = e->Next;
  4822.     e->Next = f;
  4823.   }
  4824.  
  4825. #ifdef DEBUG_OLD
  4826.   Printf("Added prototype for %s (line %ld, %ld bytes) with %ld args\n",
  4827.   f->FuncName, linenum, buf-buffer, f->NumArgs);
  4828. #endif
  4829.   return buf-buffer;
  4830. }
  4831.  
  4832. LONG ScanClibFile(STRPTR buf, STRPTR bufend)
  4833. {
  4834.   STRPTR linestart = buf;
  4835.   ULONG linenum = 1;
  4836.  
  4837.   while(buf < bufend && !CTRL_C)
  4838.   {
  4839.     if(*buf == '/' && buf[1] == '*')
  4840.     {
  4841.       while(buf < bufend && (*buf != '*' || buf[1] != '/'))
  4842.       {
  4843.         if(*(buf++) == '\n')
  4844.         {
  4845.           ++linenum; linestart = buf;
  4846.         } /* skip comments */
  4847.       }
  4848.     }
  4849.     else if(*buf == '/' && buf[1] == '/')
  4850.     {
  4851.       while(buf < bufend && *buf != '\n')
  4852.         ++buf; /* skip line comments */
  4853.     }
  4854.     else if(*buf == '\n')
  4855.     {
  4856.       linestart = ++buf; ++linenum;
  4857.     }
  4858.     else if(*buf == '('/*)*/)
  4859.     {
  4860.       LONG i;
  4861.  
  4862.       if((i = AddClibEntry(linestart, bufend, linenum)) == -1) /* no memory */
  4863.         return 0;
  4864.       else if(!i)
  4865.       {
  4866.         while(buf < bufend && *buf != '\n')
  4867.           ++buf; /* skip this line */
  4868.       }
  4869.       else
  4870.       {
  4871.         i -= buf-linestart;
  4872.         while(buf < bufend && i-- > 0)
  4873.         {
  4874.           if(*(buf++) == '\n')
  4875.           {
  4876.             linestart = buf;
  4877.             ++linenum;
  4878.           } /* skip this function */
  4879.         }
  4880.       }
  4881.     }
  4882.     else
  4883.       ++buf;
  4884.   } /* while */
  4885.   return 1;
  4886. }
  4887.  
  4888. LONG IsCPPType(struct CPP_NameType *data, UBYTE type)
  4889. {
  4890.   if(!data || data->Flags || data->Type != type || data->PointerDepth)
  4891.     return 0;
  4892.   return type;
  4893. }
  4894.  
  4895. LONG GetCPPType(struct CPP_NameType *data, STRPTR start)
  4896. {
  4897.   ULONG ok = 1;
  4898.   STRPTR u;
  4899.  
  4900.   data->TypeStart = SkipBlanks(start);
  4901.  
  4902.   do
  4903.   {
  4904.     start = SkipBlanks((u = start));
  4905.     if(!strncmp("...",start,3))
  4906.     {
  4907.       data->Type = CPP_TYPE_VARARGS; return 1;
  4908.     }
  4909.     if(CheckKeyword(start, "const", 5) || CheckKeyword(start, "CONST", 5))
  4910.     {
  4911.       data->Flags |= CPP_FLAG_CONST; start += 6;
  4912.     }
  4913.     else if(CheckKeyword(start, "signed", 6))
  4914.       start += 7;
  4915.     else if(CheckKeyword(start, "unsigned", 8))
  4916.     {
  4917.       data->Flags |= CPP_FLAG_UNSIGNED; start += 9;
  4918.     }
  4919.     else if(CheckKeyword(start, "struct", 6))
  4920.     {
  4921.       start = SkipBlanks(start+6);
  4922.       data->Flags |= CPP_FLAG_STRUCT;
  4923.       if(*start != '?') /* ? for external types */
  4924.       {
  4925.         start = SkipName((data->StructureName = start));
  4926.         data->StructureLength = start-data->StructureName;
  4927.       }
  4928.       else
  4929.       {
  4930.         data->StructureLength = 0;
  4931.         data->StructureName = "";
  4932.         ++start;
  4933.       }
  4934.     }
  4935.     else if(CheckKeyword(start, "union", 5))
  4936.     {
  4937.       start = SkipBlanks(start+5);
  4938.       data->Flags |= CPP_FLAG_UNION;
  4939.       if(*start != '?') /* ? for external types */
  4940.       {
  4941.         start = SkipName((data->StructureName = start));
  4942.         data->StructureLength = start-data->StructureName;
  4943.       }
  4944.       else
  4945.       {
  4946.         data->StructureLength = 0;
  4947.         data->StructureName = "";
  4948.         ++start;
  4949.       }
  4950.     }
  4951.     else if(CheckKeyword(start, "enum", 4))
  4952.     {
  4953.       start = SkipBlanks(start+4);
  4954.       data->Flags |= CPP_FLAG_ENUM;
  4955.       if(*start != '?') /* ? for external types */
  4956.       {
  4957.         start = SkipName((data->StructureName = start));
  4958.         data->StructureLength = start-data->StructureName;
  4959.       }
  4960.       else
  4961.       {
  4962.         data->StructureLength = 0;
  4963.         data->StructureName = "";
  4964.         ++start;
  4965.       }
  4966.     }
  4967.     else if(*start == '*')
  4968.     {
  4969.       ++start; ++data->PointerDepth;
  4970.     }
  4971.     else
  4972.     {
  4973.       ULONG i;
  4974.  
  4975.       for(i = 0; CPP_Field[i].Text; ++i)
  4976.       {
  4977.         if(!strncmp(start, CPP_Field[i].Text, CPP_Field[i].Length) &&
  4978.         (start[CPP_Field[i].Length] == ' ' ||
  4979.         start[CPP_Field[i].Length] == '\t' ||
  4980.         start[CPP_Field[i].Length] == '\n' ||
  4981.         start[CPP_Field[i].Length] == ',' ||
  4982.         start[CPP_Field[i].Length] == /*(*/')' ||
  4983.         start[CPP_Field[i].Length] == '('/*)*/ ||
  4984.         start[CPP_Field[i].Length] == '*'))
  4985.         {
  4986.           start += CPP_Field[i].Length;
  4987.           data->Type = CPP_Field[i].Type;
  4988.           data->Flags |= CPP_Field[i].Flags;
  4989.           if(CPP_Field[i].Flags & CPP_FLAG_POINTER)
  4990.             ++data->PointerDepth;
  4991.           break;
  4992.         }
  4993.       }
  4994.       if(CPP_Field[i].Text)
  4995.         continue;
  4996.       else if(extnames)
  4997.       {
  4998.         struct CPP_ExternNames *a = extnames;
  4999.        
  5000.         while(a)
  5001.         {
  5002.           i = strlen(a->Type);
  5003.           if(!strncmp(a->Type, start, i) && !isalnum(start[i]) && 
  5004.           start[i] != '_')
  5005.           {
  5006.             start += i;
  5007.             data->StructureName = a->NameType.StructureName;
  5008.             data->FuncArgs = a->NameType.FuncArgs;
  5009.             data->StructureLength = a->NameType.StructureLength;
  5010.             data->PointerDepth += a->NameType.PointerDepth;
  5011.             data->Type = a->NameType.Type;
  5012.             data->Flags |= a->NameType.Flags;
  5013.             break;
  5014.           }
  5015.      
  5016.           /* check types here */
  5017.           a = a->Next;
  5018.         }
  5019.         if(a)
  5020.           continue;
  5021.       }
  5022.       break;
  5023.     }
  5024.   } while(1);
  5025.  
  5026.   if(start != SkipBlanks(u)) /* we broke the loop after increasing start */
  5027.     u = start;
  5028.  
  5029.   data->TypeLength = u - (data->TypeStart);
  5030.   data->FullLength = data->TypeLength;
  5031.  
  5032.   u = SkipBlanks(u);
  5033.  
  5034.   if(*u == '('/*)*/)
  5035.   {
  5036.     ok = 0;
  5037.     u = SkipBlanks(++u);
  5038.     if(*u == '*')
  5039.     {
  5040.       u = SkipBlanks(++u);
  5041.       if(CheckKeyword(u, "const", 5) || CheckKeyword(u, "CONST", 5))
  5042.       {
  5043.         data->Flags |= CPP_FLAG_CONST; u += 6;
  5044.       }
  5045.       u = SkipBlanks(SkipName(SkipBlanks(u)));
  5046.       if(*u == /*(*/')')
  5047.       {
  5048.         u = SkipBlanks(++u);
  5049.         if(*u == '('/*)*/)
  5050.         {
  5051.           data->Flags |= CPP_FLAG_FUNCTION;
  5052.           data->FuncArgs = u;
  5053.           ok = 1;
  5054.           u = SkipBlanks(++u);
  5055.           if(*u == /*(*/')')
  5056.             data->FuncArgs = 0;
  5057.           else
  5058.           {
  5059.             ULONG d = 0;
  5060.             while(d || *u != /*(*/')')
  5061.             {
  5062.               if(*u == '('/*)*/)
  5063.                 ++d;
  5064.               else if(*u == /*(*/')')
  5065.                 --d;
  5066.               ++u;
  5067.             }
  5068.             data->ArgsLength = u+1 - (data->FuncArgs);
  5069.           }
  5070.           data->FullLength = u+1 - (data->TypeStart);
  5071.         }
  5072.       }
  5073.     }
  5074.   }
  5075.  
  5076.   if(data->PointerDepth)
  5077.     data->Flags |= CPP_FLAG_POINTER;
  5078.  
  5079.   if((!data->Type && !data->Flags) || !ok)
  5080.     return 0;
  5081.   return 1;
  5082. }
  5083.  
  5084. struct ClibData *GetClibFunc(STRPTR name, struct AmiPragma *ap, ULONG flags)
  5085. {
  5086.   struct ClibData *d = clibdata;
  5087.  
  5088.   while(d && strcmp(name, d->FuncName))
  5089.     d = d->Next;
  5090.  
  5091.   if(!d)
  5092.   {
  5093.     if(!(ap->Flags & AMIPRAGFLAG_NOCLIB))
  5094.     {
  5095.       DoError(ERR_PROTOTYPE_MISSING, 0, name);
  5096.       ap->Flags |= AMIPRAGFLAG_NOCLIB;
  5097.     }
  5098.   }
  5099.   else if(ap->CallArgs != d->NumArgs && (!(flags & FUNCFLAG_TAG) ||
  5100.   ap->CallArgs+1 != d->NumArgs))
  5101.   {
  5102.     if(!(ap->Flags & (AMIPRAGFLAG_CLIBARGCNT|AMIPRAGFLAG_DIDARGWARN)))
  5103.     {
  5104.       DoError(ERR_CLIB_ARG_COUNT, 0, name, d->NumArgs, ap->NumArgs);
  5105.       ap->Flags |= AMIPRAGFLAG_CLIBARGCNT;
  5106.     }
  5107.     return 0;
  5108.   }
  5109.  
  5110.   return d;  
  5111. }
  5112.  
  5113. LONG CheckKeyword(STRPTR string, STRPTR keyword, LONG size)
  5114. {
  5115.   if(!strncmp(string, keyword, size))
  5116.   {
  5117.     string += size;
  5118.     if(*string == ' ' || *string == '\t' || *string == '\n')
  5119.       return size;
  5120.   }
  5121.   return 0;
  5122. }
  5123.  
  5124. /* return non zero, when ok, return 0xFFFFFFFF when STRPTR and not flags */
  5125. ULONG CopyCPPType(STRPTR buffer, ULONG flag, struct ClibData *cd,
  5126. struct AmiArgs *args)
  5127. {
  5128. /* when flag, then STRPTR is unsigned char * mode, else signed char * */
  5129.   ULONG ret = 1;
  5130.   ULONG i, j, k = 0;
  5131.  
  5132.   for(i = 0; i < cd->NumArgs; ++i)
  5133.   {
  5134.     struct CPP_NameType *nt;
  5135.  
  5136.     nt = &cd->Args[i];
  5137.  
  5138.     if(!flag && (nt->Flags & CPP_FLAG_STRPTR))
  5139.       ret = 0xFFFFFFFF;
  5140.  
  5141.     if(args && (Flags & FLAG_LOCALREG) && (nt->Type != CPP_TYPE_VARARGS))
  5142.     {
  5143.       *(buffer++) = CPP_TYPE_REGISTER;
  5144.       *(buffer++) = args[k].ArgReg + (args[k].ArgReg < 10 ? '0' : 'A'-10);
  5145.     }
  5146.     if(nt->Flags & CPP_FLAG_FUNCTION)
  5147.     {
  5148.       *(buffer++) = CPP_TYPE_POINTER; *(buffer++) = CPP_TYPE_FUNCTION;
  5149.     }
  5150.     for(j = 0; j < nt->PointerDepth; ++j)
  5151.       *(buffer++) = CPP_TYPE_POINTER;
  5152.     if(nt->Flags & CPP_FLAG_CONST)
  5153.       *(buffer++) = CPP_TYPE_CONST;
  5154.     if((nt->Flags & CPP_FLAG_UNSIGNED) &&
  5155.     !(flag && (nt->Flags & CPP_FLAG_STRPTR)))
  5156.       *(buffer++) = CPP_TYPE_UNSIGNED;
  5157.     if(nt->Flags & CPP_FLAG_ENUM)
  5158.       *(buffer++) = CPP_TYPE_ENUM;
  5159.     if(nt->Type)
  5160.       *(buffer++) = cd->Args[i].Type;
  5161.     else
  5162.     {
  5163.       ULONG i;
  5164.       sprintf(buffer, "%02ld", (ULONG) nt->StructureLength); buffer += 2;
  5165.       for(i = 0; i < nt->StructureLength; ++i)
  5166.         *(buffer++) = nt->StructureName[i];
  5167.     }
  5168.     if(nt->Flags & CPP_FLAG_FUNCTION)
  5169.     {
  5170. //      if(nt.FuncArgs)
  5171. //      {
  5172. //        ******** do something here
  5173. //        while(*buffer)
  5174. //          ++buffer;
  5175. //      }
  5176.       *(buffer++) = CPP_TYPE_FUNCEND;
  5177.     }
  5178.     ++k;
  5179.     if(IsCPPType(nt, CPP_TYPE_DOUBLE))  /* double needs 2 registers */
  5180.       ++k;
  5181.   }
  5182.  
  5183.   *(buffer) = 0;
  5184.  
  5185.   return ret;
  5186. }
  5187.  
  5188. ULONG OutClibType(struct CPP_NameType *nt, STRPTR txt)
  5189. {
  5190.   DoOutputDirect(nt->TypeStart, nt->TypeLength);
  5191.   if(!DoOutput((nt->Flags & CPP_FLAG_FUNCTION) ? (txt ? " (*%s)" : " (*)") :
  5192.   (txt ? " %s" : ""), txt))
  5193.     return 0;
  5194.  
  5195.   if(nt->Flags & CPP_FLAG_FUNCTION)
  5196.   {
  5197.     if(nt->FuncArgs)
  5198.       DoOutputDirect(nt->FuncArgs, nt->ArgsLength);
  5199.     else
  5200.       return DoOutput("()");
  5201.   }
  5202.  
  5203.   return 1;
  5204. }
  5205.  
  5206. ULONG OutPASCALType(struct CPP_NameType *t, STRPTR txt, ULONG ret)
  5207. {
  5208.   LONG i = t->PointerDepth;
  5209.  
  5210.   if(t->Flags & CPP_FLAG_CONST)
  5211.     DoOutput("CONST ");
  5212.   if(!ret && i == 1 &&
  5213.   (t->Type == CPP_TYPE_LONG || t->Type == CPP_TYPE_WORD))
  5214.   {
  5215.     DoOutput("VAR "); --i;
  5216.   }
  5217.  
  5218.   DoOutput("%s : ", txt);
  5219.  
  5220.   if(!i && t->Flags == CPP_FLAG_BOOLEAN)
  5221.     return DoOutput("BOOLEAN");
  5222.   else if(i && t->Type == CPP_TYPE_VOID)
  5223.     return DoOutput("POINTER");
  5224.   else if(t->Flags & CPP_FLAG_FUNCTION)
  5225.     return DoOutput("tPROCEDURE");
  5226.  
  5227.   while(i--)
  5228.     DoOutput("p");
  5229.  
  5230.   if((t->Flags & (CPP_FLAG_STRUCT|CPP_FLAG_UNION)) && t->StructureLength)
  5231.   {
  5232.     if(!t->PointerDepth)
  5233.       DoOutput("t");
  5234.     return DoOutputDirect(t->StructureName, t->StructureLength);
  5235.   }
  5236.  
  5237.   if(t->Flags & CPP_FLAG_UNSIGNED)
  5238.   {
  5239.     if(t->Type == CPP_TYPE_LONG)
  5240.       return DoOutput("CARDINAL");
  5241.     if(t->Type == CPP_TYPE_WORD)
  5242.       return DoOutput("WORD");
  5243.     if(t->Type == CPP_TYPE_BYTE)
  5244.       return DoOutput(t->PointerDepth == 1 ? "CHAR" : "BYTE");
  5245.   }
  5246.   else if(t->Type == CPP_TYPE_WORD)
  5247.     return DoOutput("INTEGER");
  5248.   else if(t->Type == CPP_TYPE_BYTE)
  5249.     return DoOutput("SHORTINT");
  5250.   return DoOutput("LONGINT");
  5251. }
  5252.  
  5253. /* ------------------------------------------------------------------ */
  5254.  
  5255. ULONG CallPrag(ULONG tagmode, STRPTR type, FuncType Func)
  5256. {
  5257.   if(type)
  5258.     if((*type && !DoOutput("#if%s\n", type)) ||
  5259.     !(CallFunc(tagmode, tagmode ? 0 : "/%s */\n", Func)) ||
  5260.     (*type && !DoOutput("#endif\n")) || CTRL_C)
  5261.       return 0;
  5262.   return 1;
  5263. }
  5264.  
  5265. ULONG CreatePragmaFile(STRPTR amicall, STRPTR libcall, STRPTR amitags,
  5266. STRPTR libtags, ULONG mode)
  5267. {
  5268.   switch(mode)
  5269.   {
  5270.   case PRAGMODE_PRAGLIB: DoOutput("#ifndef _INCLUDE_PRAGMA_%s_LIB_H\n"
  5271.     "#define _INCLUDE_PRAGMA_%s_LIB_H\n", ShortBaseNameUpper,
  5272.     ShortBaseNameUpper); break;
  5273.   case PRAGMODE_PRAGSLIB: DoOutput("#ifndef PRAGMAS_%s_LIB_H\n#define "
  5274.     "PRAGMAS_%s_LIB_H\n", ShortBaseNameUpper, ShortBaseNameUpper); break;
  5275.   case PRAGMODE_PRAGSPRAGS: DoOutput("#ifndef PRAGMAS_%s_PRAGMAS_H\n#define "
  5276.     "PRAGMAS_%s_PRAGMAS_H\n", ShortBaseNameUpper, ShortBaseNameUpper); break;
  5277.   case PRAGMODE_NONE: break;
  5278.   default: return 0;
  5279.   }
  5280.  
  5281.   if(HEADER)
  5282.   {
  5283.     DoOutput("\n");
  5284.     DoOutputDirect(HEADER, headersize);
  5285.   }
  5286.  
  5287.   if(mode != PRAGMODE_NONE && !DoOutput("\n#ifndef CLIB_%s_PROTOS_H\n#include "
  5288.   "<clib/%s_protos.h>\n#endif\n\n", ShortBaseNameUpper, ShortBaseName))
  5289.     return 0;
  5290.  
  5291.   if((Flags & FLAG_EXTERNC) &&
  5292.   !DoOutput("#ifdef __cplusplus\nextern \"C\" {\n#endif\n\n"))
  5293.     return 0;
  5294.  
  5295.   if(Flags & FLAG_GNUPRAG)
  5296.   {
  5297.     DoOutput("#ifdef " TEXT_GNUC "\n#include <inline/%s.h>\n#endif\n",
  5298.     ShortBaseName);
  5299.     Flags |= FLAG_DONE;
  5300.   }
  5301.  
  5302.   if(
  5303.   !CallPrag(TAGMODE_NORMAL, amicall, FuncAMICALL) ||
  5304.   !CallPrag(TAGMODE_NORMAL, libcall, FuncLIBCALL))
  5305.     return 0;
  5306.  
  5307.   if(tagfuncs)
  5308.   {
  5309.     if(
  5310.     !CallPrag(TAGMODE_TAGS, amitags, FuncAMICALL) ||
  5311.     !CallPrag(TAGMODE_TAGS, libtags, FuncLIBCALL))
  5312.       return 0;
  5313.   }
  5314.  
  5315.   if((Flags & FLAG_EXTERNC) &&
  5316.   !DoOutput("\n#ifdef __cplusplus\n}\n#endif\n"))
  5317.     return 0;
  5318.  
  5319.   switch(mode)
  5320.   {
  5321.   case PRAGMODE_PRAGLIB: DoOutput("\n#endif\t/*  _INCLUDE_PRAGMA_%s_LIB_H  */\n",
  5322.     ShortBaseNameUpper); break;
  5323.   case PRAGMODE_PRAGSLIB: DoOutput("\n#endif\t/*  PRAGMAS_%s_LIB_H  */\n",
  5324.     ShortBaseNameUpper); break;
  5325.   case PRAGMODE_PRAGSPRAGS: DoOutput("\n#endif\t/*  PRAGMAS_%s_PRAGMA_H  */\n",
  5326.     ShortBaseNameUpper); break;
  5327.   case PRAGMODE_NONE: break;
  5328.   default: return 0;
  5329.   }
  5330.   return Output_Error;
  5331. }
  5332.  
  5333. ULONG CreateCSTUBSFile(void)
  5334. {
  5335.   DoOutput("#ifndef _INCLUDE_%s_CSTUBS_H\n#define _INCLUDE_%s_CSTUBS_H\n",
  5336.     ShortBaseNameUpper, ShortBaseNameUpper);
  5337.  
  5338.   if(!clibdata)
  5339.   {
  5340.     DoError(ERR_NOPROTOTYPES_FILE, 0); return 1;
  5341.   }
  5342.  
  5343.   if(HEADER)
  5344.   {
  5345.     DoOutput("\n");
  5346.     DoOutputDirect(HEADER, headersize);
  5347.   }
  5348.  
  5349.   if(!DoOutput("\n#ifndef CLIB_%s_PROTOS_H\n#include "
  5350.   "<clib/%s_protos.h>\n#endif\n\n", ShortBaseNameUpper, ShortBaseName))
  5351.     return 0;
  5352.  
  5353.   if(!CallFunc(TAGMODE_TAGS, "/%s */\n", FuncCSTUBS))
  5354.     return 0;
  5355.  
  5356.   return DoOutput("#endif\t/*  _INCLUDE_%s_CSTUBS_H  */\n",
  5357.   ShortBaseNameUpper);
  5358. }
  5359.  
  5360. ULONG CreateLVOFile(ULONG mode)
  5361. {
  5362.   STRPTR data = "_LVO_I";
  5363.  
  5364.   if(mode == 2 || mode == 4)
  5365.     data = "_LIB_I";
  5366.  
  5367.   if(!DoOutput("\t\tIFND LIBRARIES_%s%s\nLIBRARIES_%s%s\tSET\t1\n\n",
  5368.   ShortBaseNameUpper, data, ShortBaseNameUpper, data) ||
  5369.   (HEADER && (!DoOutput("\n") || !DoOutputDirect(HEADER, headersize))) ||
  5370.   (mode <= 2 && !CallFunc(TAGMODE_NORMAL, 0, FuncLVOXDEF)) ||
  5371.   !CallFunc(TAGMODE_NORMAL, "\n%s", FuncLVO) ||
  5372.   !DoOutput("\n\n\t\tENDC\n") || CTRL_C)
  5373.     return 0;
  5374.  
  5375.   return 1;
  5376. }
  5377.  
  5378. ULONG CreateAsmStubs(ULONG mode, ULONG callmode)
  5379. {
  5380.   /* 1 = Text, 2 = Code */
  5381.   switch(mode)
  5382.   {
  5383.   case 1:
  5384.     if(HEADER)
  5385.     {
  5386.       DoOutput("\n");
  5387.       DoOutputDirect(HEADER, headersize);
  5388.     }
  5389.     
  5390.     if(!(Flags & FLAG_ASMSECTION))
  5391.       DoOutput("\tSECTION\t\"%s_STUBS\",CODE\n\tXREF\t_%s\n", ShortBaseNameUpper, BaseName);
  5392.     if(!CallFunc(callmode, "\n%s", FuncAsmText))
  5393.       return 0;
  5394.     break;
  5395.   case 2:
  5396.     if(!CallFunc(callmode, 0, FuncAsmCode))
  5397.       return 0;
  5398.     break;
  5399.   }
  5400.  
  5401.   if(CTRL_C)
  5402.     return 0;
  5403.   return 1;
  5404. }
  5405.  
  5406. ULONG CreateProtoFile(ULONG Type)
  5407. {
  5408.   STRPTR str1 = "pragma", str2 = "lib";
  5409.  
  5410.   DoOutput("#ifndef _PROTO_%s_H\n#define _PROTO_%s_H\n", ShortBaseNameUpper,
  5411.   ShortBaseNameUpper);
  5412.  
  5413.   if(HEADER)
  5414.   {
  5415.     DoOutput("\n");
  5416.     DoOutputDirect(HEADER, headersize);
  5417.   }
  5418.  
  5419.   switch(Type)
  5420.   {
  5421.     case 4: str1 = "pragmas"; /* no break; */
  5422.     case 2: str2 = "pragmas"; break;
  5423.     case 3: str1 = "pragmas"; break;
  5424.     case 5: str1 = "local"; str2 = "loc"; break;
  5425.   }
  5426.  
  5427.   DoOutput("\n#ifndef EXEC_TYPES_H\n#include <exec/types.h>\n#endif\n");
  5428.   if(Type != 5)
  5429.     DoOutput("#ifndef CLIB_%s_PROTOS_H\n"
  5430.     "#include <clib/%s_protos.h>\n#endif\n",
  5431.     ShortBaseNameUpper, ShortBaseName);
  5432.   if(Type != 8)
  5433.   {
  5434.     if(Type >= 6)
  5435.     {
  5436.       DoOutput("\n#ifdef " TEXT_GNUC "\n#include <inline/%s.h>\n",
  5437.       ShortBaseName);
  5438.       if(Type != 7)
  5439.       {
  5440.         DoOutput("#elif defined(" TEXT_VBCC ")\n#ifndef __PPC__\n"
  5441.         "#include <inline/%s_protos.h>\n#endif\n#else", ShortBaseName);
  5442.       }
  5443.     }
  5444.     if(Type != 7)
  5445.       DoOutput("\n#include <%s/%s_%s.h>\n", str1, ShortBaseName, str2);
  5446.     if(Type >= 6)
  5447.       DoOutput("#endif\n");
  5448.   }
  5449.  
  5450.   if(BaseName)
  5451.   {
  5452.     DoOutput("\n#ifndef __NOLIBBASE__\nextern struct %s *", GetBaseType());
  5453.     if(Type == 7)
  5454.       DoOutput("\n#ifdef __CONSTLIBBASEDECL__\n__CONSTLIBBASEDECL__\n"
  5455.       "#endif\n");
  5456.     DoOutput("%s;\n#endif\n", BaseName);
  5457.   }
  5458.  
  5459.   Flags |= FLAG_DONE;
  5460.  
  5461.   return DoOutput("\n#endif\t/*  _PROTO_%s_H  */\n", ShortBaseNameUpper);
  5462. }
  5463.  
  5464. ULONG CreateLocalData(STRPTR to, ULONG callmode, STRPTR clibbuf,
  5465. ULONG clibsize)
  5466. {
  5467.   UBYTE a[40];
  5468.  
  5469.   DoOutput("#ifndef _INCLUDE_PROTO_%s_LOC_H\n"
  5470.   "#define _INCLUDE_PROTO_%s_LOC_H\n",
  5471.   ShortBaseNameUpper, ShortBaseNameUpper);
  5472.  
  5473.   if(HEADER)
  5474.   {
  5475.     DoOutput("\n");
  5476.     DoOutputDirect(HEADER, headersize);
  5477.   }
  5478.  
  5479.   DoOutput("\n");
  5480.  
  5481.   { /* copies the include lines */
  5482.     STRPTR str = clibbuf, strend = clibbuf + clibsize;
  5483.     ULONG i = 0;
  5484.  
  5485.     /* works too, when no clibbuf, because then following is everytime false */
  5486.     while(str < strend)
  5487.     {
  5488.       if(!strncmp(str, "#include", 8))
  5489.       {
  5490.         DoOutput("%s\n",str); ++i;
  5491.       }
  5492.       while(*(str++))
  5493.         ;
  5494.     }
  5495.     DoOutput(i ? "\n" : "#include <exec/types.h>\n\n");
  5496.   }
  5497.  
  5498.   if((Flags & FLAG_EXTERNC) &&
  5499.   !DoOutput("#ifdef __cplusplus\nextern \"C\" {\n#endif\n\n"))
  5500.     return 0;
  5501.  
  5502.   if(!CallFunc(callmode, "/%s */\n", FuncLocText))
  5503.     return 0;
  5504.  
  5505.   if((Flags & FLAG_EXTERNC) &&
  5506.   !DoOutput("#ifdef __cplusplus\n}\n#endif\n\n"))
  5507.     return 0;
  5508.  
  5509.   DoOutput("#endif\t/*  _INCLUDE_PROTO_%s_LOC_H  */\n", ShortBaseNameUpper);
  5510.   Out(out.size); /* clears buffer */
  5511.  
  5512.   sprintf(a, "%s_loc.lib", ShortBaseName);
  5513.   if(!CloseDest(to) || !(out.file = Open(a, MODE_NEWFILE)))
  5514.     return 0;
  5515.  
  5516.   CallFunc(callmode, 0, FuncLocCode);
  5517.   
  5518.   return CloseDest(a);
  5519. }
  5520.  
  5521. ULONG CreateInline(ULONG mode, ULONG callmode)
  5522. {
  5523.   if(!clibdata)
  5524.   {
  5525.     DoError(ERR_NOPROTOTYPES_FILE, 0); return 1;
  5526.   }
  5527.  
  5528.   DoOutput("#ifndef _%sINLINE_%s_H\n#define _%sINLINE_%s_H\n",
  5529.   Flags & FLAG_POWERUP ? "PPC" : "", ShortBaseNameUpper,
  5530.   Flags & FLAG_POWERUP ? "PPC" : "", ShortBaseNameUpper);
  5531.  
  5532.   if(HEADER)
  5533.   {
  5534.     DoOutput("\n");
  5535.     DoOutputDirect(HEADER, headersize);
  5536.   }
  5537.  
  5538.   DoOutput("\n");
  5539.  
  5540.   if(!mode)
  5541.   {
  5542.     if(Flags & FLAG_POWERUP)
  5543.       DoOutput("#ifndef __PPCINLINE_MACROS_H\n"
  5544.       "#include <powerup/ppcinline/macros.h>\n#endif\n\n");
  5545.     else
  5546.       DoOutput("#ifndef __INLINE_MACROS_H\n"
  5547.       "#include <inline/macros.h>\n#endif\n\n");
  5548.     Flags |= FLAG_INLINENEW;
  5549.   }
  5550.   else if(mode <= 2)
  5551.   {
  5552.     if(Flags & FLAG_POWERUP)
  5553.       DoOutput("#ifndef __PPCINLINE_STUB_H\n"
  5554.       "#include <powerup/ppcinline/stubs.h>\n#endif\n\n");
  5555.     else
  5556.       DoOutput("#ifndef __INLINE_STUB_H\n"
  5557.       "#include <inline/stubs.h>\n#endif\n\n");
  5558.     if(mode == 2)
  5559.       Flags |= FLAG_INLINESTUB;
  5560.   }
  5561.   else if(mode == 3)
  5562.     Flags |= FLAG_INLINEMAC;
  5563.  
  5564.   if(BaseName)
  5565.   {
  5566.     if(mode && mode <= 2)
  5567.       DoOutput("#ifndef BASE_EXT_DECL\n#define BASE_EXT_DECL\n"
  5568.       "#define BASE_EXT_DECL0 extern struct %s *%s;\n#endif\n"
  5569.       "#ifndef BASE_PAR_DECL\n#define BASE_PAR_DECL\n"
  5570.       "#define BASE_PAR_DECL0 void\n#endif\n"
  5571.       "#ifndef BASE_NAME\n#define BASE_NAME %s\n#endif\n\n"
  5572.       "BASE_EXT_DECL0\n\n", GetBaseType(), BaseName, BaseName);
  5573.     else
  5574.       DoOutput("#ifndef %s_BASE_NAME\n#define %s_BASE_NAME %s\n#endif\n\n",
  5575.       ShortBaseNameUpper, ShortBaseNameUpper, BaseName);
  5576.   }
  5577.  
  5578.   if(mode <= 2)
  5579.   {
  5580.     if(!CallFunc(callmode, "/%s */\n", FuncInline))
  5581.       return 0;
  5582.   }
  5583.   else
  5584.   {
  5585.     if(!CallFunc(callmode, "/%s */\n", FuncInlineNS))
  5586.       return 0;
  5587.   }
  5588.  
  5589.   if(mode && mode <= 2 && BaseName)
  5590.     DoOutput("#undef BASE_EXT_DECL\n#undef BASE_EXT_DECL0\n"
  5591.     "#undef BASE_PAR_DECL\n#undef BASE_PAR_DECL0\n#undef BASE_NAME\n\n");
  5592.  
  5593.   return DoOutput("#endif /*  _%sINLINE_%s_H  */\n",
  5594.   Flags & FLAG_POWERUP ? "PPC" : "", ShortBaseNameUpper);
  5595. }
  5596.  
  5597. ULONG CreateSASPowerUP(ULONG callmode)
  5598. {
  5599.   DoOutput("#ifndef _PPCPRAGMA_%s_H\n#define _PPCPRAGMA_%s_H\n",
  5600.   ShortBaseNameUpper, ShortBaseNameUpper);
  5601.  
  5602.   if(HEADER)
  5603.   {
  5604.     DoOutput("\n");
  5605.     DoOutputDirect(HEADER, headersize);
  5606.   }
  5607.  
  5608.   DoOutput("\n#ifdef __GNUC__\n"
  5609.   "#ifndef _PPCINLINE__%s_H\n"
  5610.   "#include <powerup/ppcinline/%s.h>\n"
  5611.   "#endif\n"
  5612.   "#else\n\n"
  5613.   "#ifndef POWERUP_PPCLIB_INTERFACE_H\n"
  5614.   "#include <powerup/ppclib/interface.h>\n"
  5615.   "#endif\n\n"
  5616.   "#ifndef POWERUP_GCCLIB_PROTOS_H\n"
  5617.   "#include <powerup/gcclib/powerup_protos.h>\n"
  5618.   "#endif\n\n"
  5619.   "#ifndef NO_PPCINLINE_STDARG\n"
  5620.   "#define NO_PPCINLINE_STDARG\n"
  5621.   "#endif /* SAS-C PPC inlines */\n\n",
  5622.   ShortBaseNameUpper, ShortBaseName);
  5623.  
  5624.   if(BaseName)
  5625.   {
  5626.     DoOutput("#ifndef %s_BASE_NAME\n#define %s_BASE_NAME %s\n#endif\n\n",
  5627.     ShortBaseNameUpper, ShortBaseNameUpper, BaseName);
  5628.   }
  5629.  
  5630.   if(!CallFunc(callmode, "/%s */\n", FuncPowerUP))
  5631.     return 0;
  5632.  
  5633.   return DoOutput("#endif /* SAS-C PPC pragmas */\n"
  5634.   "#endif /*  _PPCPRAGMA_%s_H  */\n", ShortBaseNameUpper);
  5635. }
  5636.  
  5637. ULONG CreateProtoPowerUP(void)
  5638. {
  5639.   DoOutput("#ifndef PPCPROTO_%s_H\n#define PPCPROTO_%s_H\n",
  5640.   ShortBaseNameUpper, ShortBaseNameUpper);
  5641.  
  5642.   if(HEADER)
  5643.   {
  5644.     DoOutput("\n");
  5645.     DoOutputDirect(HEADER, headersize);
  5646.   }
  5647.  
  5648.   DoOutput("\n#include <clib/%s_protos.h>\n\n#ifdef " TEXT_GNUC "\n"
  5649.   "#include <powerup/ppcinline/%s.h>\n#else /* SAS-C */\n"
  5650.   "#include <powerup/ppcpragmas/%s_pragmas.h>\n#endif\n",
  5651.   ShortBaseName, ShortBaseName, ShortBaseName);
  5652.  
  5653.   if(BaseName)
  5654.   {
  5655.     DoOutput("\n#ifndef __NOLIBBASE__\nextern struct %s *", GetBaseType());
  5656.     DoOutput("\n#ifdef __CONSTLIBBASEDECL__\n__CONSTLIBBASEDECL__\n"
  5657.     "#endif\n%s;\n#endif\n", BaseName);
  5658.   }
  5659.  
  5660.   Flags |= FLAG_DONE;
  5661.  
  5662.   return DoOutput("\n#endif\t/*  PPCPROTO_%s_H  */\n", ShortBaseNameUpper);
  5663. }
  5664.  
  5665. ULONG CreateFPCUnit(void)
  5666. {
  5667.   if(!clibdata)
  5668.   {
  5669.     DoError(ERR_NOPROTOTYPES_FILE, 0); return 1;
  5670.   }
  5671.  
  5672.   DoOutput("UNIT %s;\n", ShortBaseNameUpper);
  5673.  
  5674.   if(HEADER)
  5675.   {
  5676.     DoOutput("\n");
  5677.     DoOutputDirect(HEADER, headersize);
  5678.   }
  5679.  
  5680.   DoOutput("\nINTERFACE\nUSES Exec;\n\nVAR %s : p%s;\n\n", BaseName,
  5681.   GetBaseType());
  5682.  
  5683.   if(!CallFunc(TAGMODE_NORMAL, 0, FuncFPCType))
  5684.     return 0;
  5685.  
  5686.   DoOutput("\nIMPLEMENTATION\n\n");
  5687.  
  5688.   if(!CallFunc(TAGMODE_NORMAL, "(%s *)\n", FuncFPCUnit))
  5689.     return 0;
  5690.  
  5691.   return DoOutput("END. (* UNIT %s *)\n", ShortBaseNameUpper);
  5692. }
  5693.  
  5694. ULONG CreateBMAP(void)
  5695. {
  5696.   return CallFunc(TAGMODE_NORMAL, 0, FuncBMAP);
  5697. }
  5698.  
  5699. ULONG CreateLVOLib(void)
  5700. {
  5701.   ULONG a[5], i;
  5702.  
  5703.   i = strlen(ShortBaseNameUpper);
  5704.   a[0] = HUNK_UNIT; a[1] = 0; a[2] = HUNK_NAME;
  5705.   a[3] = (i + 4 + 3)>>2;
  5706.  
  5707.   DoOutputDirect(a, 16);
  5708.   DoOutputDirect(ShortBaseNameUpper, i);
  5709.   DoOutputDirect("_LVO\0\0\0", (a[3]<<2)-i);
  5710.   a[0] = HUNK_CODE; a[1] = 0; a[2] = HUNK_EXT;
  5711.   DoOutputDirect(a, 12);
  5712.   if(!CallFunc(TAGMODE_NORMAL, 0, FuncLVOLib))
  5713.     return 0;
  5714.   a[0] = 0; a[1] = HUNK_END;
  5715.   return DoOutputDirect(a, 8);
  5716. }
  5717.  
  5718. ULONG CreateVBCCInline(void)
  5719. {
  5720.   if(!clibdata)
  5721.   {
  5722.     DoError(ERR_NOPROTOTYPES_FILE, 0); return 1;
  5723.   }
  5724.  
  5725.   DoOutput("#ifndef _VBCCINLINE_%s_H\n#define _VBCCINLINE_%s_H\n",
  5726.   ShortBaseNameUpper, ShortBaseNameUpper);
  5727.  
  5728.   DoOutput("\n#ifndef EXEC_TYPES_H\n#include <exec/types.h>\n#endif\n");
  5729.  
  5730.   if(HEADER)
  5731.   {
  5732.     DoOutput("\n");
  5733.     DoOutputDirect(HEADER, headersize);
  5734.   }
  5735.  
  5736.   DoOutput("\n");
  5737.  
  5738.   if(!CallFunc(TAGMODE_NORMAL, "/%s */\n", FuncVBCCInline))
  5739.     return 0;
  5740.  
  5741.   return DoOutput("#endif /*  _VBCCINLINE_%s_H  */\n", ShortBaseNameUpper);
  5742. }
  5743.  
  5744. ULONG CreateVBCC(ULONG mode, ULONG callmode)
  5745. {
  5746.   ULONG res = 0;
  5747.  
  5748.   if(mode != 2 && mode != 3 && HEADER)
  5749.   {
  5750.     DoOutput("\n");
  5751.     DoOutputDirect(HEADER, headersize);
  5752.   }
  5753.  
  5754.   switch(mode)
  5755.   {
  5756.   case 4: res = CallFunc(callmode, 0, FuncVBCCPUPText); break;
  5757.  
  5758.   case 3: Flags |= FLAG_WOSLIBBASE; /* no break! */
  5759.   case 2: res = CallFunc(callmode, 0, FuncVBCCWOSCode); break;
  5760.  
  5761.   case 1: Flags |= FLAG_WOSLIBBASE; /* no break! */
  5762.   case 0: res = CallFunc(callmode, "\n%s", FuncVBCCWOSText); break;
  5763.   }
  5764.   return res;
  5765. }
  5766.  
  5767. ULONG CreateVBCCPUPLib(ULONG callmode)
  5768. {
  5769.   /* output header */
  5770.   DoOutput("!<arch>\n");
  5771.  
  5772.   return CallFunc(callmode, 0, FuncVBCCPUPCode);
  5773. }
  5774.  
  5775. /* ------------------------------------------------------------------ */
  5776.  
  5777. ULONG GetName(struct NameList *t, struct ShortListRoot *p, ULONG args)
  5778. {
  5779.   struct NameList *p2 = (struct NameList *) p->First;
  5780.   struct AmiPragma ap;
  5781.   ap.FuncName = t->NormName;
  5782.   ap.NumArgs = 1;
  5783.   ap.Args[0].ArgName = (args ? "args" : "tags");
  5784.   if(!MakeTagFunction(&ap))
  5785.     return 0;
  5786.  
  5787.   while(p2 && strcmp(p2->PragName, ap.TagName))
  5788.    p2 = (struct NameList *) p2->List.Next;
  5789.  
  5790.   if(!p2)
  5791.     return 0;
  5792.  
  5793.   t->Type = (args ? NTP_ARGS : NTP_TAGS);
  5794.   t->PragName = ap.TagName;
  5795.   RemoveItem(p, (struct ShortList *) p2);
  5796.  
  5797. #ifdef DEBUG_OLD
  5798.   VPrintf("GetName: name matches - %s _ %s\n", &t->NormName);
  5799. #endif
  5800.  
  5801.   return 1;
  5802. }
  5803.  
  5804. void OptimizeFDData(struct PragData *pd)
  5805. {
  5806. #ifdef DEBUG_OLD
  5807.   PutStr("OptimizeFDData\n");
  5808. #endif
  5809.  
  5810.   while(pd && !CTRL_C)
  5811.   {
  5812.     if(pd->NumNames > 1)
  5813.     {
  5814.       struct ShortListRoot n = {0,0,0}, p = {0,0,0};
  5815.       struct NameList *t;
  5816.       while(pd->Name.First)     /* sorts in AmiCall and TagCall */
  5817.       {
  5818.         t = (struct NameList *) pd->Name.First;
  5819.  
  5820.         RemoveItem(&pd->Name, (struct ShortList *) t);
  5821.         AddItem(t->PragName ? &p : &n, (struct ShortList *) t);
  5822.       }
  5823.  
  5824.       if(p.First)
  5825.       {
  5826.         t = (struct NameList *) n.First;
  5827.         while(p.First && t)
  5828.         {
  5829.           if(!GetName(t, &p, 0))
  5830.           {
  5831.             GetName(t, &p, 1);
  5832.           }
  5833.           if(t->PragName)
  5834.           {
  5835.             struct NameList *t2 = (struct NameList *) t->List.Next;
  5836.             RemoveItem(&n, (struct ShortList *)t);
  5837.             AddItem(&pd->Name, (struct ShortList *) t);
  5838.             t = t2;
  5839.           }
  5840.           else
  5841.             t = (struct NameList *) t->List.Next;
  5842.         }
  5843.         while(p.First)
  5844.         {
  5845.           if(n.First)
  5846.           {
  5847.             t = (struct NameList *) n.First;
  5848.             t->PragName = ((struct NameList *)(p.First))->PragName;
  5849.             RemoveItem(&n, (struct ShortList *) t);
  5850. #ifdef DEBUG_OLD
  5851.   VPrintf("OptimizeFDData: names together - %s _ %s\n", &t->NormName);
  5852. #endif
  5853.             t->Type = NTP_UNKNOWN;
  5854.           }
  5855.           else
  5856.           {
  5857.             ULONG i;
  5858.  
  5859.             t = (struct NameList *) p.First;
  5860.             i = strlen(t->PragName);
  5861.             t->NormName = DupString(t->PragName, i+1);
  5862.             t->NormName[i++] = 'A';
  5863.             t->NormName[i] = 0;
  5864.             t->Type = NTP_TAGS;
  5865. #ifdef DEBUG_OLD
  5866.   VPrintf("OptimizeFDData: NormName created - %s _ %s\n", &t->NormName);
  5867. #endif
  5868.           }
  5869.  
  5870.           AddItem(&pd->Name, (struct ShortList *) t);
  5871.           RemoveItem(&p, p.First);
  5872.         }
  5873.       }
  5874.  
  5875.       AddItem(&pd->Name, n.First); /* add left NormNames */
  5876.     }
  5877.     pd = (struct PragData *) pd->List.Next;
  5878.   }
  5879. }
  5880.  
  5881. ULONG MakeFD(struct PragList *pl)
  5882. {
  5883.   struct PragData *pd = (struct PragData *) pl->Data.First;
  5884.   ULONG bias;
  5885.  
  5886. #ifdef DEBUG_OLD
  5887.   PutStr("MakeFD\n");
  5888. #endif
  5889.   bias = pd->Bias;
  5890.  
  5891.   OptimizeFDData(pd);
  5892. #ifdef DEBUG_OLD
  5893.   PutStr("MakeFD: after Optimizing\n");
  5894. #endif
  5895.   DoOutput("##base _%s\n##bias %ld\n##public\n", pl->Basename, bias);
  5896.  
  5897.   while(pd && !CTRL_C && Output_Error)
  5898.   {
  5899.     struct NameList *n = (struct NameList *) pd->Name.First;
  5900.  
  5901.     if(bias != pd->Bias)
  5902.       DoOutput("##bias %ld\n", (bias = pd->Bias));
  5903.  
  5904.     while(n)
  5905.     {
  5906.       STRPTR lastpar = "last";
  5907.       ULONG i;
  5908.  
  5909.       if(n->Type == NTP_TAGS)
  5910.         lastpar = "tags";
  5911.       else if(n->Type == NTP_ARGS)
  5912.         lastpar = "args";
  5913.  
  5914.       DoOutput("%s("/*)*/,n->NormName);
  5915.       if(!pd->NumArgs)
  5916.         DoOutput(/*(*/")()\n");
  5917.       else
  5918.       {
  5919.         for(i = 0; i < pd->NumArgs-1; ++i)
  5920.           DoOutput("par%ld,",i+1);
  5921.         DoOutput(/*(*/"%s)("/*)*/, lastpar);
  5922.         for(i = 0; i < pd->NumArgs-1; ++i)
  5923.           DoOutput("%s,", RegNames[pd->ArgReg[i]]);
  5924.         DoOutput(/*(*/"%s)\n", RegNames[pd->ArgReg[i]]);
  5925.  
  5926.         if(n->Type == NTP_UNKNOWN)
  5927.         {
  5928.           ULONG i;
  5929.           for(i = 0; n->NormName[i] == n->PragName[i]; ++i)
  5930.             ;
  5931.           DoOutput("*tagcall");
  5932.           if(n->NormName[i])
  5933.             DoOutput("-%s", n->NormName+i);
  5934.           if(n->PragName[i])
  5935.             DoOutput("+%s", n->PragName+i);
  5936.  
  5937.           DoOutput("\n");
  5938.         }
  5939.       }
  5940.       if((n = (struct NameList *) n->List.Next))
  5941.         DoOutput("##bias %ld\n", pd->Bias);
  5942.       Flags |= FLAG_DONE;
  5943.     }
  5944.  
  5945.     pd = (struct PragData *)pd->List.Next; bias += BIAS_OFFSET;
  5946.   }
  5947.  
  5948.   if(CTRL_C)
  5949.     return 0;
  5950.  
  5951.   DoOutput("##end\n");
  5952.  
  5953.   return Output_Error;
  5954. }
  5955.  
  5956. ULONG AddFDData(struct ShortListRoot *pls, struct FDData *fd)
  5957. {
  5958.   struct NameList *t;
  5959.   struct PragList *pl = (struct PragList *) pls->First;
  5960.   struct PragData *pd;
  5961.  
  5962.   while(pl && strcmp(pl->Basename, fd->Basename))
  5963.     pl = (struct PragList *) pl->List.Next;
  5964.  
  5965.   if(!pl)
  5966.   {
  5967. #ifdef DEBUG_OLD
  5968.   VPrintf("AddFDData: New PragList - %s\n", &fd->Basename);
  5969. #endif
  5970.     if(!(pl = (struct PragList *) NewItem(pls)))
  5971.       return 100;
  5972.     pl->Basename = fd->Basename;
  5973.     pl->Data.Size = sizeof(struct PragData);
  5974.     AddItem(pls, (struct ShortList *) pl);
  5975.   }
  5976.  
  5977.   if((pd = (struct PragData *) pl->Data.First))
  5978.   {
  5979.     while(pd->List.Next && ((struct PragData *) pd->List.Next)->Bias
  5980.     <= fd->Bias)
  5981.       pd = (struct PragData *) pd->List.Next;
  5982.   }
  5983.  
  5984.   if(!pd || pd->Bias != fd->Bias)
  5985.   {
  5986.     struct PragData *pd2;
  5987. #ifdef DEBUG_OLD
  5988.   {
  5989.     ULONG args[2];
  5990.     args[0] = fd->Bias;
  5991.     args[1] = fd->NumArgs;
  5992.     VPrintf("AddFDData: New PragData - %ld, %ld\n", &args);
  5993.   }
  5994. #endif
  5995.     if(!(pd2 = (struct PragData *) NewItem(&pl->Data)))
  5996.       return 100;
  5997.     pd2->Bias = fd->Bias;
  5998.     CopyMem(fd->ArgReg, pd2->ArgReg, MAXREG);
  5999.     pd2->NumArgs = fd->NumArgs;
  6000.     pd2->Name.Size = sizeof(struct NameList);
  6001.     if(!pd)
  6002.       AddItem(&pl->Data, (struct ShortList *) pd2);
  6003.     else if(pd->Bias > fd->Bias) /* Insert at start */
  6004.     {
  6005.       pd2->List.Next = pl->Data.First;
  6006.       pl->Data.First = (struct ShortList *) pd2;
  6007.     }
  6008.     else /* Insert the entry */
  6009.     {
  6010.       pd2->List.Next = pd->List.Next;
  6011.       pd->List.Next = (struct ShortList *) pd2;
  6012.     }
  6013.     pd = pd2;
  6014.   }
  6015.   else
  6016.   {
  6017.     ULONG i = fd->NumArgs;
  6018.     if(fd->NumArgs != pd->NumArgs)
  6019.     {
  6020. #ifdef DEBUG_OLD
  6021.   Printf("ArgNum %ld != %ld\n", fd->NumArgs, pd->NumArgs);
  6022. #endif
  6023.       return ERR_DIFFERENT_TO_PREVIOUS;
  6024.     }
  6025.  
  6026.     while(i--)
  6027.     {
  6028.       if(fd->ArgReg[i] != pd->ArgReg[i])
  6029.       {
  6030. #ifdef DEBUG_OLD
  6031.   Printf("ArgReg %lx != %lx\n", fd->ArgReg[i], pd->ArgReg[i]);
  6032. #endif
  6033.         return ERR_DIFFERENT_TO_PREVIOUS;
  6034.       }
  6035.     }
  6036.   }
  6037.  
  6038.   t = (struct NameList *) pd->Name.First;       /* skips same names */
  6039.   while(t && strcmp(fd->Name, fd->Mode ? t->PragName : t->NormName))
  6040.     t = (struct NameList *) t->List.Next;
  6041.  
  6042.   if(t)
  6043.     return 0;
  6044.  
  6045.   if(!(t = (struct NameList *) NewItem(&pd->Name)))
  6046.     return 100;
  6047.   if(fd->Mode)
  6048.     t->PragName = fd->Name;
  6049.   else
  6050.     t->NormName = fd->Name;
  6051.   AddItem(&pd->Name, (struct ShortList *) t);
  6052.   ++(pd->NumNames);
  6053. #ifdef DEBUG_OLD
  6054.   VPrintf("AddFDData: New NameList - %s\n", &fd->Name);
  6055. #endif
  6056.   return 0;
  6057. }
  6058.  
  6059. UBYTE GetHexValue(UBYTE data)
  6060. {
  6061.   if(data >= 'a')
  6062.     return (UBYTE) (data - 'a' + 10);
  6063.   else if(data >= 'A')
  6064.     return (UBYTE) (data - 'A' + 10);
  6065.   else
  6066.     return (UBYTE) (data - '0');
  6067. }
  6068.  
  6069. UBYTE GetDoubleHexValue(UBYTE *data)
  6070. {
  6071.   return (UBYTE)((GetHexValue(*data)<<4)+GetHexValue(data[1]));
  6072. }
  6073.  
  6074. ULONG GetLibData(struct FDData *fd)
  6075. {
  6076.   ULONG i;
  6077.   fd->Name = SkipBlanks(in.pos);
  6078.   in.pos = SkipName(fd->Name); *(in.pos++) = 0;
  6079.   in.pos = SkipBlanks(in.pos);
  6080.   fd->Bias = strtoul(in.pos, 0, 16);
  6081.   in.pos = SkipName(SkipBlanks(SkipName(in.pos)));
  6082.   if((fd->NumArgs = GetHexValue(*(--in.pos))) > MAXREGNF - 2)
  6083.     return ERR_TO_MUCH_ARGUMENTS;
  6084.   --in.pos; /* skips return register */
  6085.   for(i = 0; i < fd->NumArgs; ++i)
  6086.   {
  6087.     if((fd->ArgReg[i] = GetHexValue(*(--in.pos))) > REG_A5)
  6088.       return ERR_EXPECTED_REGISTER_NAME;
  6089.   }
  6090.   return 0;
  6091. }
  6092.  
  6093. ULONG GetFlibData(struct FDData *fd)
  6094. {
  6095.   ULONG i;
  6096.   fd->Name = SkipBlanks(in.pos);
  6097.   in.pos = SkipName(fd->Name); *(in.pos++) = 0;
  6098.   in.pos = SkipBlanks(in.pos);
  6099.   fd->Bias = strtoul(in.pos, 0, 16);
  6100.   in.pos = SkipName(SkipBlanks(SkipName(in.pos))) - 2;
  6101.   if((fd->NumArgs = GetDoubleHexValue(in.pos)) > MAXREG-2)
  6102.     return ERR_TO_MUCH_ARGUMENTS;
  6103.   in.pos -= 2; /* skips return register */
  6104.   for(i = 0; i < fd->NumArgs; ++i)
  6105.   {
  6106.     in.pos -= 2;
  6107.     if((fd->ArgReg[i] = GetDoubleHexValue(in.pos)) >= MAXREG)
  6108.       return ERR_EXPECTED_REGISTER_NAME;
  6109.     else if(fd->ArgReg[i] >= REG_FP0 && (Flags & FLAG_NOFPU))
  6110.       return ERR_FLOATARG_NOT_ALLOWED;
  6111.   }
  6112.   return 0;
  6113. }
  6114.  
  6115. ULONG GetAmiData(struct FDData *fd)
  6116. {
  6117.   STRPTR endptr;
  6118.   in.pos = SkipBlanks(in.pos);
  6119.   if(*in.pos != '('/*)*/)
  6120.     return ERR_EXPECTED_OPEN_BRACKET;
  6121.   fd->Basename = ++in.pos;
  6122.   in.pos = SkipBlanks(endptr = SkipName(in.pos));
  6123.   if(*in.pos != ',')
  6124.     return ERR_EXPECTED_COMMA;
  6125.   *endptr = 0;
  6126.   in.pos = SkipBlanks(++in.pos);
  6127.   if(!strncmp(in.pos, "0x", 2))
  6128.     fd->Bias = strtoul(in.pos+2, 0, 16);
  6129.   else
  6130.     fd->Bias = strtoul(in.pos, 0, 10);
  6131.  
  6132.   in.pos = SkipBlanks(SkipName(in.pos));
  6133.   if(*in.pos != ',')
  6134.     return ERR_EXPECTED_COMMA;
  6135.   fd->Name = in.pos = SkipBlanks(++in.pos);
  6136.   in.pos = SkipBlanks(endptr = SkipName(in.pos));
  6137.   if(*in.pos != '('/*)*/)
  6138.     return ERR_EXPECTED_OPEN_BRACKET;
  6139.   *endptr = 0;
  6140.   in.pos = SkipBlanks(++in.pos);
  6141.   if(*in.pos == /*(*/')')
  6142.     return 0;
  6143.   --in.pos;
  6144.   while(*in.pos != /*(*/')')
  6145.   {
  6146.     ULONG i;
  6147.     in.pos = SkipBlanks(in.pos+1);
  6148.  
  6149.     for(i = 0; i < REG_FP0; i++)
  6150.       if(!strnicmp(RegNames[i], in.pos, 2))
  6151.         break;
  6152.     if(i == REG_FP0)
  6153.     {
  6154.       for(; i < MAXREG; i++)
  6155.         if(!strnicmp(RegNames[i], in.pos, 3))
  6156.           break;
  6157.     }
  6158.  
  6159.     if(i == MAXREG)
  6160.       return ERR_EXPECTED_REGISTER_NAME;
  6161.     else if(i >= REG_FP0 && (Flags & FLAG_NOFPU))
  6162.       return ERR_FLOATARG_NOT_ALLOWED;
  6163.  
  6164.     fd->ArgReg[fd->NumArgs] = i; ++fd->NumArgs;
  6165.  
  6166.     if(fd->NumArgs > MAXREG-2)
  6167.       return ERR_TO_MUCH_ARGUMENTS;
  6168.  
  6169.     in.pos = SkipBlanks(in.pos+(i >= REG_FP0 ? 3 : 2));
  6170.  
  6171.     if(*in.pos != ',' && *in.pos != /*(*/')')
  6172.       return ERR_EXPECTED_CLOSE_BRACKET;
  6173.   }
  6174.   in.pos = SkipBlanks(in.pos+1);
  6175.   if(*in.pos != /*(*/')')
  6176.     return ERR_EXPECTED_CLOSE_BRACKET;
  6177.   return 0;
  6178. }
  6179.  
  6180. ULONG CreateFDFile(STRPTR to)
  6181. {
  6182.   struct ShortListRoot pl = {0, 0, sizeof(struct PragList)};
  6183.   ULONG linenum, err = 0, skip;
  6184.  
  6185.   for(linenum = 1; !CTRL_C && in.pos < in.buf + in.size; ++linenum)
  6186.   {
  6187.     in.pos = SkipBlanks(in.pos);
  6188.     if(!strncmp("#pragma", in.pos, 7))
  6189.     {
  6190.       struct FDData fd;
  6191.  
  6192.       skip = 0;
  6193.       memset(&fd, 0, sizeof(struct FDData));
  6194.  
  6195.       in.pos = SkipBlanks(in.pos+7);
  6196.       if(!strncmp("tagcall", in.pos, 7))
  6197.       {
  6198.         fd.Mode = 1;
  6199.         in.pos = SkipBlanks(in.pos+7);
  6200.         if(*in.pos == '(' /*)*/)                /* Storm method */
  6201.           err = GetAmiData(&fd);
  6202.         else                                    /* SAS method */
  6203.         {
  6204.           fd.Basename = in.pos;
  6205.           in.pos = SkipName(fd.Basename); *(in.pos++) = 0;
  6206.           err = GetLibData(&fd);
  6207.         }
  6208.       }
  6209.       else if(!strncmp("amicall", in.pos, 7))   /* Storm method */
  6210.       {
  6211.         in.pos += 7;
  6212.         err = GetAmiData(&fd);
  6213.       }
  6214.       else if(!strncmp("libcall", in.pos, 7))   /* SAS method */
  6215.       {
  6216.         fd.Basename = SkipBlanks(in.pos+7);
  6217.         in.pos = SkipName(fd.Basename); *(in.pos++) = 0;
  6218.         err = GetLibData(&fd);
  6219.       }
  6220.       else if(!strncmp("flibcall", in.pos, 8))  /* SAS method */
  6221.       {
  6222.         fd.Basename = SkipBlanks(in.pos+8);
  6223.         in.pos = SkipName(fd.Basename); *(in.pos++) = 0;
  6224.         err = GetFlibData(&fd);
  6225.       }
  6226.       else if(!strncmp("syscall", in.pos, 7))   /* SAS method */
  6227.       {
  6228.         fd.Basename = "SysBase";
  6229.         err = GetLibData(&fd);
  6230.       }
  6231.       else
  6232.         skip = 1;
  6233.  
  6234.       if(err)
  6235.         DoError(err, linenum);
  6236.       else if(skip)
  6237.         ;
  6238.       else if((err = AddFDData(&pl, &fd)))
  6239.       {
  6240.         if(err != 100)
  6241.           DoError(err, linenum);
  6242.         return 0;
  6243.       }
  6244.     }
  6245.     while(*(in.pos++))  /* jumps to first char of next line */
  6246.       ;
  6247.   }
  6248.  
  6249.   if(pl.First && !CTRL_C)
  6250.   {
  6251.     struct PragList *p = (struct PragList *) pl.First;
  6252.     if(!p->List.Next)
  6253.     {
  6254.       if(!to)
  6255.       {
  6256.         STRPTR text;
  6257.         ULONG i;
  6258.  
  6259.         if(ShortBaseName)
  6260.         {
  6261.           text = ShortBaseName; i = strlen(text);
  6262.         }
  6263.         else
  6264.         {
  6265.           text = p->Basename; i = strlen(text)-4;
  6266.         }
  6267.  
  6268.         to = DupString(text, i + sizeof(FDFILEEXTENSION) - 1);
  6269.         CopyMem(FDFILEEXTENSION, to+i, sizeof(FDFILEEXTENSION));
  6270.       }
  6271.       if(!(out.file = Open(to, MODE_NEWFILE)))
  6272.         return 0;
  6273.       
  6274.       err = MakeFD(p);
  6275.       CloseDest(to);
  6276.       if(!err)
  6277.         return 0;
  6278.     }
  6279.     else
  6280.     {
  6281.       while(p)
  6282.       {
  6283.         ULONG i;
  6284.         i = strlen(p->Basename) - 4;
  6285.         to = DupString(p->Basename, i + sizeof(FDFILEEXTENSION) - 1);
  6286.         CopyMem(FDFILEEXTENSION, to+i, sizeof(FDFILEEXTENSION));
  6287.         if(!(out.file = Open(to, MODE_NEWFILE)))
  6288.           return 0;
  6289.         i = MakeFD(p);
  6290.         CloseDest(to);
  6291.         if(!i)
  6292.           return 0;
  6293.         p = (struct PragList *) p->List.Next;
  6294.       }
  6295.     }
  6296.   }
  6297.  
  6298.   if(CTRL_C)
  6299.     DoError(ERR_USER_ABORT, 0);
  6300.  
  6301.   return 1;
  6302. }
  6303.  
  6304. const STRPTR helptext =
  6305. "INFILE:  the input file which should be used\n"
  6306. "SPECIAL: 1 - Aztec compiler (xxx_lib.h,     MODE 2, AMICALL)\n"
  6307. "\t 2 - DICE compiler  (xxx_pragmas.h, MODE 3, LIBCALL)\n"
  6308. "\t 3 - SAS compiler   (xxx_pragmas.h, MODE 3, LIBCALL,LIBTAGS)\n"
  6309. "\t 4 - MAXON compiler (xxx_lib.h,     MODE 1, AMICALL)\n"
  6310. "\t 5 - STORM compiler (xxx_lib.h,     MODE 1, AMITAGS,AMICALL)\n"
  6311. "\t 6 - all compilers [default]\n"
  6312. "\t 7 - all compilers with pragma to inline redirect for GCC\n"
  6313. "\t 8 - pragma to inline redirect for GCC\n"
  6314. "\t10 - stub-functions for C - C text\n"
  6315. "\t11 - stub-functions for C - assembler text\n"
  6316. "\t12 - stub-functions for C - link library\n"
  6317. "\t13 - defines and link library for local library base (register call)\n"
  6318. "\t14 - defines and link library for local library base (stack call)\n"
  6319. "\t15 - stub-functions for Pascal - assembler text\n"
  6320. "\t16 - stub-functions for Pascal - link library\n"
  6321. "\t17 - BMAP file for AmigaBASIC and MaxonBASIC\n"
  6322. "\t20 - assembler lvo _lvo.i file\n"
  6323. "\t21 - assembler lvo _lib.i file\n"
  6324. "\t22 - assembler lvo _lvo.i file no XDEF\n"
  6325. "\t23 - assembler lvo _lib.i file no XDEF\n"
  6326. "\t24 - assembler lvo link library\n"
  6327. "\t30 - proto file with pragma/..._lib.h call\n"
  6328. "\t31 - proto file with pragma/..._pragmas.h call\n"
  6329. "\t32 - proto file with pragmas/..._lib.h call\n"
  6330. "\t33 - proto file with pragmas/..._pragmas.h call\n"
  6331. "\t34 - proto file with local/..._loc.h call\n"
  6332. "\t35 - proto file for all compilers\n"
  6333. "\t36 - proto file for GNU-C compiler only\n"
  6334. "\t37 - proto file without lib definitions\n"
  6335. "\t40 - GCC inline file (preprocessor based)\n"
  6336. "\t41 - GCC inline file (old type - inline based)\n"
  6337. "\t42 - GCC inline file (library stubs)\n"
  6338. "\t43 - GCC inline file (new style - macro)\n"
  6339. "\t44 - GCC inline file (new style - inline)\n"
  6340. "\t50 - GCC inline files for PowerUP (preprocessor based)\n"
  6341. "\t51 - GCC inline files for PowerUP (old type - inline based)\n"
  6342. "\t52 - GCC inline files for PowerUP (library stubs)\n"
  6343. "\t53 - SAS-C include file for PowerUP\n"
  6344. "\t54 - Proto file for PowerUP\n"
  6345. "\t60 - FPC pascal unit text\n"
  6346. "\t70 - VBCC inline files\n"
  6347. "\t71 - VBCC WOS stub-functions - assembler text\n"
  6348. "\t72 - VBCC WOS stub-functions - assembler text (libbase)\n"
  6349. "\t73 - VBCC WOS stub-functions - link library\n"
  6350. "\t74 - VBCC WOS stub-functions - link library (libbase)\n"
  6351. "\t75 - VBCC PowerUP stub-functions - assembler text\n"
  6352. "\t76 - VBCC PowerUP stub-functions - link library\n"
  6353. "       200 - FD file (source is a pragma file!)\n"
  6354. "MODE:\t SPECIAL 1-7,AMICALL,LIBCALL,AMITAGS,LIBTAGS:\n"
  6355. "\t 1 - _INCLUDE_PRAGMA_..._LIB_H definition method [default]\n"
  6356. "\t 2 - _PRAGMAS_..._LIB_H definition method\n"
  6357. "\t 3 - _PRAGMAS_..._PRAGMAS_H definition method\n"
  6358. "\t 4 - no definition\n"
  6359. "\t SPECIAL 11-14,40-44,50-53,71-76:\n"
  6360. "\t 1 - all functions, normal interface\n"
  6361. "\t 2 - only tag-functions, tagcall interface\n"
  6362. "\t 3 - all functions, normal and tagcall interface [default]\n"
  6363. "TO:\t the destination directory (self creation of filename) or\n"
  6364. "\t the destination file\n"
  6365. "CLIB:    name of the prototypes file in clib directory\n"
  6366. "HEADER:  inserts given file into header of created file (\"\" is scan)\n"
  6367. "The following four need a string as an argument. This string is used to set\n"
  6368. "a #if<given string> before the set method.\n"
  6369. "AMICALL: creates amicall pragmas\n"
  6370. "LIBCALL: creates libcall pragmas\n"
  6371. "AMITAGS: creates tagcall pragmas (amicall like method (StormC++))\n"
  6372. "LIBTAGS: creates tagcall pragmas (libcall like method (SAS C))\n"
  6373. "Switches:\n"
  6374. "COMMENT:    copy comments found in FD file\n"
  6375. "EXTERNC:    add a #ifdef __cplusplus ... statement to pragma file\n"
  6376. "FPUONLY:    work only with functions using FPU register arguments\n"
  6377. "NEWSYNTAX:  uses new Motorola syntax for asm files\n"
  6378. "NOFPU:      disable usage of FPU register arguments\n"
  6379. "NOPPC:      disable usage of PPC-ABI functions\n"
  6380. "NOSYMBOL:   prevents creation of SYMBOL hunks for link libraries\n"
  6381. "OPT040:     optimize for 68040, do not use MOVEM for stubs\n"
  6382. "PPCONLY:    only use PPC-ABI functions\n"
  6383. "PRIVATE:    includes private declared functions\n"
  6384. "SECTION:    add section statements to asm texts\n"
  6385. "SMALLDATA:  generate small data link libraries or assembler text\n"
  6386. "SORTED:     sort generated files by name and not by bias value\n"
  6387. "STORMFD:    converts FD files of strange StormC++ format\n"
  6388. "USESYSCALL: uses syscall pragma instead of libcall SysBase\n";
  6389.  
  6390. void main(void)
  6391. {
  6392.   ULONG mode = 0, pragmode = PRAGMODE_PRAGLIB, callmode = TAGMODE_BOTH;
  6393.   ULONG spec = 0; /* for default setting I need a ULONG var to get a pointer */
  6394.   UBYTE filename[255]; /* needed for filename */
  6395.   struct Args args;
  6396.   STRPTR clibbuf = 0;
  6397.   ULONG clibsize = 0;
  6398.  
  6399. #ifdef __SASC   /* with __MAXON__ this is done automatic by my StartUp */
  6400.   TestOS;
  6401. #endif
  6402.  
  6403.   memset(&args, 0, sizeof(struct Args)); /* initialize */
  6404.   args.SPECIAL = &spec;
  6405.  
  6406.   if(!(rda = (struct RDArgs *) AllocDosObject(DOS_RDARGS, 0)))
  6407.     End(RETURN_FAIL);
  6408.   rda->RDA_ExtHelp = helptext;
  6409.   if(!ReadArgs(PARAM, (LONG *) &args, rda))
  6410.     End(RETURN_FAIL);
  6411.  
  6412.   if(!(in.file = Open(args.INFILE, MODE_OLDFILE)))
  6413.   {
  6414.     sprintf(filename, "%s" FDFILEEXTENSION, args.INFILE);
  6415.     if(*args.SPECIAL == 200 || !(in.file = Open(filename, MODE_OLDFILE)))
  6416.     {
  6417.       DoError(ERR_OPEN_FILE, 0, args.INFILE);
  6418.       End(RETURN_FAIL);
  6419.     }
  6420.     else
  6421.       args.INFILE = filename;
  6422.   }
  6423.  
  6424.   VPrintf("SourceFile: %s\n", &args.INFILE);
  6425.  
  6426.   /* OS39 and up may use AllocPooled instead of normal AllocMem. If this
  6427.      fails, we use normal method */
  6428.   if(SysBase->LibNode.lib_Version >= 39)
  6429.     mempool = CreatePool(MEMF_ANY|MEMF_CLEAR,10240,2048);
  6430.  
  6431.   if(!(fib = (struct FileInfoBlock *) AllocDosObject(DOS_FIB, 0)) ||
  6432.   !ExamineFH(in.file, fib) ||
  6433.   !(in.buf = in.pos = AllocListMem((in.size = fib->fib_Size)+1)) ||
  6434.   Read(in.file, in.buf, in.size) != in.size ||
  6435.   !(out.buf = out.pos = AllocListMem(out.size)) ||
  6436.   !(tempbuf = AllocListMem(TEMPSIZE)))
  6437.     End(RETURN_FAIL);
  6438.   else
  6439.   {
  6440.     STRPTR ptr = FilePart(args.INFILE);
  6441.     LONG len = strlen(ptr) - sizeof(FDFILEEXTENSION) + 1;
  6442.     if(len >= 0 && !stricmp(ptr+len, FDFILEEXTENSION))
  6443.       ShortBaseName = DupString(ptr, len);
  6444.   }
  6445.  
  6446.   MakeLines(in.pos, in.size);
  6447.  
  6448.   if(args.EXTERNC)      Flags ^= FLAG_EXTERNC;
  6449.   if(args.STORMFD)      Flags ^= FLAG_STORMFD;
  6450.   if(args.PRIVATE)      Flags ^= FLAG_PRIVATE;
  6451.   if(args.NEWSYNTAX)    Flags ^= FLAG_NEWSYNTAX;
  6452.   if(args.SMALLDATA)    Flags ^= FLAG_SMALLDATA;
  6453.   if(args.USESYSCALL)   Flags ^= FLAG_SYSCALL;
  6454.   if(args.OPT040)       Flags ^= FLAG_NOMOVEM;
  6455.   if(args.NOFPU)        Flags ^= FLAG_NOFPU;
  6456.   if(args.FPUONLY)      Flags ^= FLAG_FPUONLY;
  6457.   if(args.NOPPC)        Flags ^= FLAG_NOPPC;
  6458.   if(args.NOSYMBOL)    Flags ^= FLAG_NOSYMBOL;
  6459.   if(args.PPCONLY)      Flags ^= FLAG_PPCONLY;
  6460.   if(args.SECTION)    Flags ^= FLAG_ASMSECTION;
  6461.   if(args.COMMENT && !args.SORTED)
  6462.     Flags ^= FLAG_DOCOMMENT;
  6463.  
  6464.   if(args.TO)
  6465.   {
  6466.     if((lock = Lock(args.TO, SHARED_LOCK)) && Examine(lock, fib) &&
  6467.     fib->fib_DirEntryType > 0)
  6468.       args.TO = 0;
  6469.     else if(lock)
  6470.     {
  6471.       UnLock(lock);
  6472.       lock = 0;
  6473.     }
  6474.   }
  6475.  
  6476.   if(*args.SPECIAL == 200)
  6477.   {
  6478.     STRPTR ptr = FilePart(args.INFILE), ptr2;
  6479.  
  6480.     for(ptr2 = ptr; *ptr2 && *ptr2 != '_' && *ptr2 != '.'; ++ptr2)
  6481.       ;
  6482.     if(ptr2 != ptr)
  6483.     {
  6484.       ShortBaseName = ptr;
  6485.       *ptr2 = '\0';
  6486.     }
  6487.     if(lock)
  6488.     {
  6489.       oldfh = CurrentDir(lock); Flags |= FLAG_CHANGELOCK;
  6490.     }
  6491.     if(!CreateFDFile(args.TO))
  6492.       End(RETURN_FAIL);
  6493.     End(RETURN_OK);
  6494.   }
  6495.  
  6496.   Close(in.file);
  6497.   if((in.file = Open(EXTTYPESFILE, MODE_OLDFILE)) ||
  6498.   (in.file = Open(EXTTYPESFILE2, MODE_OLDFILE)))
  6499.   {
  6500.     STRPTR ptr;
  6501.  
  6502.     if(ExamineFH(in.file, fib) && (ptr = AllocListMem(fib->fib_Size)) &&
  6503.     Read(in.file, ptr, fib->fib_Size) == fib->fib_Size)
  6504.     {
  6505.       ULONG i;
  6506.       if((i = ScanTypes(ptr, fib->fib_Size)) > 0)
  6507.         DoError(ERR_WRONG_TYPES_LINE, i);
  6508.       if(i)
  6509.         End(RETURN_FAIL);
  6510.     }
  6511.     else
  6512.       End(RETURN_FAIL);
  6513.  
  6514.     Close(in.file); in.file = 0;
  6515.   }
  6516.  
  6517.   if(args.CLIB)
  6518.   {
  6519.  
  6520.     if(!(in.file = Open(args.CLIB, MODE_OLDFILE)))
  6521.     {
  6522.       sprintf(filename, "%s_protos.h", args.CLIB);
  6523.       if(!(in.file = Open(filename, MODE_OLDFILE)))
  6524.       {
  6525.         DoError(ERR_OPEN_FILE, 0, args.CLIB);
  6526.         End(RETURN_FAIL);
  6527.       }
  6528.     }
  6529.     if(!ExamineFH(in.file, fib) ||
  6530.     !(clibbuf = AllocListMem((clibsize = fib->fib_Size + 1))) ||
  6531.     Read(in.file, clibbuf, fib->fib_Size) != fib->fib_Size)
  6532.       End(RETURN_FAIL);
  6533.     ScanClibFile(clibbuf, clibbuf+fib->fib_Size);
  6534.     Close(in.file); in.file = 0;
  6535.   }
  6536.  
  6537.   if(!ScanFDFile())
  6538.     End(RETURN_FAIL);
  6539.  
  6540.   if(lock)
  6541.   {
  6542.     oldfh = CurrentDir(lock); Flags |= FLAG_CHANGELOCK;
  6543.   }
  6544.  
  6545.   if(args.SORTED)
  6546.     SortFDList();
  6547.  
  6548.   if(!ShortBaseName)
  6549.   {
  6550.     DoError(ERR_MISSING_SHORTBASENAME, 0); End(RETURN_FAIL);
  6551.   }
  6552.   else if((ShortBaseNameUpper = DupString(ShortBaseName,
  6553.   strlen(ShortBaseName))))
  6554.   {
  6555.     STRPTR a = ShortBaseNameUpper;
  6556.     while((*a = toupper(*a))) /* Convert to uppercase */
  6557.       a++;
  6558.   }
  6559.   else
  6560.     End(RETURN_FAIL);
  6561.  
  6562.   if(*args.SPECIAL < 10) /* the pragma area is up to 9 */
  6563.   {
  6564.     STRPTR amicall = 0, libcall = 0, amitags = 0, libtags = 0;
  6565.  
  6566.     mode = MODUS_PRAGMA;
  6567.     sprintf(filename, "%s_lib.h", ShortBaseName);
  6568.  
  6569.     if(!args.LIBTAGS && !args.AMITAGS && !args.LIBCALL && !args.AMICALL &&
  6570.     !*args.SPECIAL)
  6571.       *args.SPECIAL = 6; /* default mode */
  6572.  
  6573.     switch(*args.SPECIAL)
  6574.     {
  6575.       case 0: break;
  6576.       case 1: pragmode = PRAGMODE_PRAGSLIB; amicall = ""; break;
  6577.       case 2: sprintf(filename, "%s_pragmas.h", ShortBaseName);
  6578.               pragmode = PRAGMODE_PRAGSPRAGS; libcall = ""; break;
  6579.       case 3: sprintf(filename, "%s_pragmas.h", ShortBaseName);
  6580.               pragmode = PRAGMODE_PRAGSPRAGS; libcall = "";
  6581.               libtags = "def " TEXT_SAS_60; break;
  6582.       case 4: amicall = ""; break;
  6583.       case 5: amicall = amitags = ""; break;
  6584.       case 7: Flags |= FLAG_GNUPRAG; /* no break ! */
  6585.       case 6: amicall = " defined(" TEXT_AZTEC ") || defined("
  6586.               TEXT_MAXON ") || defined(" TEXT_STORM ")";
  6587.               libcall = " defined(" TEXT_DICE ") || defined(" TEXT_SAS ")";
  6588.               libtags = "def " TEXT_SAS_60; amitags ="def " TEXT_STORM; break;
  6589.       case 8: sprintf(filename, "%s_pragmas.h", ShortBaseName);
  6590.               Flags |= FLAG_GNUPRAG; pragmode = PRAGMODE_PRAGSPRAGS; break;
  6591.       default: mode = MODUS_ERROR; break;
  6592.     }
  6593.  
  6594.     if(!args.AMICALL)   args.AMICALL = amicall;
  6595.     if(!args.LIBCALL)   args.LIBCALL = libcall;
  6596.     if(!args.AMITAGS)   args.AMITAGS = amitags;
  6597.     if(!args.LIBTAGS)   args.LIBTAGS = libtags;
  6598.  
  6599.     if(args.MODE && *args.MODE > 0 && *args.MODE < 5)
  6600.       pragmode = *args.MODE;
  6601.   }
  6602.   else if(*args.SPECIAL < 20) /* the misc area is up to 19 */
  6603.   {
  6604.     if(args.MODE && *args.MODE > 0 && *args.MODE < 4)
  6605.       callmode = *args.MODE - 1;
  6606.     switch(*args.SPECIAL)
  6607.     {
  6608.     case 10: mode = MODUS_CSTUB;
  6609.       sprintf(filename, "%s_cstub.h", ShortBaseName); break;
  6610.     case 11: mode = MODUS_STUBTEXT;
  6611.       sprintf(filename, "%s_stub.s", ShortBaseName); break;
  6612.     case 12: mode = MODUS_STUBCODE;
  6613.       sprintf(filename, "%s.lib", ShortBaseName); break;
  6614.     case 13: Flags |= FLAG_LOCALREG; /* no break ! */
  6615.     case 14: mode = MODUS_LOCALDATA;
  6616.       sprintf(filename, "%s_loc.h", ShortBaseName); args.TO = 0; break;
  6617.     case 15: mode = MODUS_STUBTEXT; callmode = TAGMODE_NORMAL;
  6618.       Flags ^= FLAG_PASCAL;
  6619.       sprintf(filename, "%s_stub.s", ShortBaseName); break;
  6620.     case 16: mode = MODUS_STUBCODE; callmode = TAGMODE_NORMAL;
  6621.       Flags ^= FLAG_PASCAL;
  6622.       sprintf(filename, "%s.lib", ShortBaseName); break;
  6623.     case 17: mode = MODUS_BMAP; callmode = TAGMODE_NORMAL;
  6624.       sprintf(filename, "%s.bmap", ShortBaseName); break;
  6625.     default: mode = MODUS_ERROR; break;
  6626.     }
  6627.   }
  6628.   else if(*args.SPECIAL < 30) /* the lvo area is up to 29 */
  6629.   {
  6630.     switch(*args.SPECIAL)
  6631.     {
  6632.     case 20: case 22: mode = MODUS_LVO+*args.SPECIAL-20;
  6633.       sprintf(filename, "%s_lvo.i", ShortBaseName); break;
  6634.     case 21: case 23: mode = MODUS_LVO+*args.SPECIAL-20;
  6635.       sprintf(filename, "%s_lib.i", ShortBaseName); break;
  6636.     case 24: mode = MODUS_LVOLIB;
  6637.       sprintf(filename, "%s.lib", ShortBaseName); break;
  6638.     default: mode = MODUS_ERROR; break;
  6639.     }
  6640.   }
  6641.   else if(*args.SPECIAL < 40) /* the proto area is up to 39 */
  6642.   {
  6643.     if(*args.SPECIAL < 38)
  6644.     {
  6645.       mode = MODUS_PROTO+*args.SPECIAL-30+1;
  6646.       sprintf(filename, "%s.h", ShortBaseName);
  6647.     }
  6648.     else
  6649.       mode = MODUS_ERROR;
  6650.   }
  6651.   else if(*args.SPECIAL < 50) /* the inline area is up to 49 */
  6652.   {
  6653.     if(args.MODE && *args.MODE > 0 && *args.MODE < 4)
  6654.       callmode = *args.MODE - 1;
  6655.  
  6656.     switch(*args.SPECIAL)
  6657.     {
  6658.     case 40: case 41: case 42: case 43: case 44:
  6659.       mode = MODUS_INLINE+*args.SPECIAL-40;
  6660.       sprintf(filename, "%s.h", ShortBaseName); break;
  6661.     default: mode = MODUS_ERROR; break;
  6662.     }
  6663.   }
  6664.   else if(*args.SPECIAL < 60) /* the PowerUP area is up to 59 */
  6665.   {
  6666.     if(args.MODE && *args.MODE > 0 && *args.MODE < 4)
  6667.       callmode = *args.MODE - 1;
  6668.  
  6669.     switch(*args.SPECIAL)
  6670.     {
  6671.     case 50: case 51: case 52: mode = MODUS_INLINE+*args.SPECIAL-50;
  6672.       sprintf(filename, "%s.h", ShortBaseName); Flags |= FLAG_POWERUP;
  6673.       break;
  6674.     case 53:
  6675.       sprintf(filename, "%s_pragmas.h", ShortBaseName);
  6676.       mode = MODUS_SASPOWER; break;
  6677.     case 54:
  6678.       sprintf(filename, "%s.h", ShortBaseName);
  6679.       mode = MODUS_PROTOPOWER; break;
  6680.     default: mode = MODUS_ERROR; break;
  6681.     }
  6682.   }
  6683.   else if(*args.SPECIAL < 70) /* the PASCAL stuff */
  6684.   {
  6685.     if(*args.SPECIAL == 60)
  6686.     {
  6687.       mode = MODUS_PASCAL;
  6688.       sprintf(filename, "%s.pas", ShortBaseName);
  6689.     }
  6690.     else
  6691.       mode = MODUS_ERROR;
  6692.   }
  6693.   else if(*args.SPECIAL < 80) /* the VBCC stuff */
  6694.   {
  6695.     if(args.MODE && *args.MODE > 0 && *args.MODE < 4)
  6696.       callmode = *args.MODE - 1;
  6697.  
  6698.     switch(*args.SPECIAL)
  6699.     {
  6700.     case 70: mode = MODUS_VBCCINLINE;
  6701.       sprintf(filename, "%s_protos.h", ShortBaseName); break;
  6702.     case 71: case 72: case 75:
  6703.       mode = MODUS_VBCC+*args.SPECIAL-71;
  6704.       sprintf(filename, "%s_stub.s", ShortBaseName); break;
  6705.     case 73: case 74:
  6706.       mode = MODUS_VBCC+*args.SPECIAL-71;
  6707.       sprintf(filename, "%s.lib", ShortBaseName); break;
  6708.     case 76:
  6709.       mode = MODUS_VBCCPUPLIB;
  6710.       sprintf(filename, "lib%s.a", ShortBaseName); break;
  6711.     default: mode = MODUS_ERROR; break;
  6712.     }
  6713.   }
  6714.  
  6715.   if(!mode)
  6716.   {
  6717.     SetIoErr(ERROR_REQUIRED_ARG_MISSING);
  6718.     End(RETURN_FAIL);
  6719.   }
  6720.   else if(mode == MODUS_ERROR)
  6721.   {
  6722.     SetIoErr(ERROR_TOO_MANY_ARGS);
  6723.     End(RETURN_FAIL);
  6724.   }
  6725.  
  6726.   /* These modes need BaseName always. */
  6727.   if(!BaseName && (mode == MODUS_PRAGMA || mode == MODUS_STUBTEXT ||
  6728.   mode == MODUS_STUBCODE))
  6729.   {
  6730.     DoError(ERR_MISSING_BASENAME, 0); End(RETURN_FAIL);
  6731.   }
  6732.  
  6733.   if(!args.TO)
  6734.     args.TO = filename;
  6735.  
  6736.   if(args.HEADER)
  6737.   {
  6738.     if(!*args.HEADER || (!args.HEADER[1] && *args.HEADER=='@'))
  6739.       args.HEADER = args.TO;
  6740.     if(!(in.file = Open(args.HEADER, MODE_OLDFILE)) ||
  6741.     !ExamineFH(in.file, fib) ||
  6742.     !(HEADER = AllocListMem((headersize = fib->fib_Size)+1)) ||
  6743.     Read(in.file, HEADER, headersize) != headersize)
  6744.       End(RETURN_FAIL);
  6745.     if(args.HEADER == args.TO)
  6746.       FindHeader();
  6747.     Close(in.file);
  6748.     in.file = 0;
  6749.   }
  6750.  
  6751.   if(!(out.file = Open(args.TO, MODE_NEWFILE)))
  6752.     End(RETURN_FAIL);
  6753.  
  6754.   SetIoErr(0);
  6755.  
  6756.   /* from here mode is used as return result */
  6757.   if(mode >= MODUS_VBCC)
  6758.     mode = CreateVBCC(mode-MODUS_VBCC, callmode);
  6759.   else if(mode >= MODUS_INLINE)
  6760.     mode = CreateInline(mode-MODUS_INLINE, callmode);
  6761.   else if(mode >= MODUS_PROTO)
  6762.     mode = CreateProtoFile(mode-MODUS_PROTO);
  6763.   else if(mode >= MODUS_LVO)
  6764.     mode = CreateLVOFile(mode-MODUS_LVO+1);
  6765.   else if(mode == MODUS_LVOLIB)
  6766.     mode = CreateLVOLib();
  6767.   else if(mode == MODUS_VBCCPUPLIB)
  6768.     mode = CreateVBCCPUPLib(callmode);
  6769.   else if(mode == MODUS_VBCCINLINE)
  6770.     mode = CreateVBCCInline();
  6771.   else if(mode == MODUS_PASCAL)
  6772.     mode = CreateFPCUnit();
  6773.   else if(mode == MODUS_BMAP)
  6774.     mode = CreateBMAP();
  6775.   else if(mode == MODUS_PROTOPOWER)
  6776.     mode = CreateProtoPowerUP();
  6777.   else if(mode == MODUS_SASPOWER)
  6778.     mode = CreateSASPowerUP(callmode);
  6779.   else if(mode == MODUS_CSTUB)
  6780.     mode = CreateCSTUBSFile();
  6781.   else if(mode == MODUS_PRAGMA)
  6782.     mode = CreatePragmaFile(args.AMICALL, args.LIBCALL, args.AMITAGS, args.LIBTAGS, pragmode);
  6783.   else if(mode == MODUS_LOCALDATA)
  6784.     mode = CreateLocalData(args.TO, callmode, clibbuf, clibsize);
  6785.   else if(mode)             /* MODUS_STUBTEXT starts with 1 */
  6786.     mode = CreateAsmStubs(mode, callmode);
  6787.  
  6788.   CloseDest(args.TO);
  6789.  
  6790.   if(CTRL_C)
  6791.     DoError(ERR_USER_ABORT, 0);
  6792.   else if(!mode)
  6793.   {
  6794.     DoError(Output_Error ? ERR_UNKNOWN_ERROR : ERR_WRITING_FILE, 0);
  6795.     End(RETURN_FAIL);
  6796.   }
  6797.  
  6798.   End(RETURN_OK);
  6799. }
  6800.  
  6801. void End(ULONG err)
  6802. {
  6803.   if(err && !(Flags & FLAG_DIDERROR))
  6804.     PrintFault(IoErr(), 0);
  6805.  
  6806.   if(fib)
  6807.     FreeDosObject(DOS_FIB, fib);
  6808.   if(in.file)
  6809.     Close(in.file);
  6810.   if(lock)
  6811.   {
  6812.     if(Flags & FLAG_CHANGELOCK)
  6813.       CurrentDir(oldfh);
  6814.     UnLock(lock);
  6815.   }
  6816.   if(mempool) /* free allocated pool and all entries */
  6817.     DeletePool(mempool);
  6818.   if(remember) /* free remember list */
  6819.   {
  6820.     struct RememberMem *r, *s;
  6821.  
  6822.     r = remember;
  6823.     while(r)
  6824.     {
  6825.       s = r;
  6826.       r = r->rm_Next;
  6827.  
  6828.       FreeMem(s, s->rm_Size);
  6829.     }
  6830.   }
  6831.   if(rda)
  6832.   {
  6833.     FreeArgs(rda);
  6834.     FreeDosObject(DOS_RDARGS, rda);
  6835.   }
  6836.   exit(err);
  6837. }
  6838.